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ABSTRACT 


This  renort  describes  t  He  pronrar  description  of  an 
interactive  araohics  packaae  interfacing  the  Vector  Gen* 
era!  Graphics  Display  Unit  and  a  Oioital  Fquipment  Cor¬ 
poration  PDP-11 /SO  computer.  The  orogran  was  written  in 
the  C-prooramrino  1  annyaop  and  designed  to  be  used  in  the 
mul  t  i  pronrarrmi  nq  rnv  i  ronm^nt  of  the  U  U  I  /  T  i  rr  e  S  h  a  r  i  n  q 
opera t inn  system.  Included  is  a  description  of  the  Vector 
General/  operating  system  modifications/  device  driver/ 
and  interface  routines. 
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INTRODUC  I  ION 


This  manual  is  the  pronrarr  description  for  an  interac¬ 
tive  oranhics  nackaoe  intert'acino  a  Vector  General  Graph¬ 
ics  Display  System  a n o  a  PDP-11/ SO  user.  The  Vector  Gen¬ 
eral  Graphics  Display  System  (vector  general )  is  an  in¬ 
teractive  Graphics  cathode  ray  tube  (CRT)  display  that  is 
connected  to  the  PDP-11 /SO  computer  via  a  modified  DPI  1 ~  b 
interface.  The  display  interacts  with  an  on-line  user  hy 
displaying  pictorial  information  on  the  surface  of  the 
cathode  ray  tube  and  tv  accent i no  inputs  from  external 
control  devices.  The  inputs  are  requested  and  processed 
by  computer  programs  that  alter  and  maintain  the  output 
picture  heino  presented  to  the  user. 

This  manual  assumes  that  the  reader  is  familiar  with 
the  C-orogrammina  language  and  the  UNIX  operating  system. 
The  terminology  used  herein  without  explanation  refers  to 
the  features  rind  registers  in  the  display  unit,  A  more 
detailed  description  can  he  found  in  the  Vector  General 
Graphics  Display  Unit  Reference  Manual  ( V G  101056).  A 
user's  manual  is  puolished  separately. 

The  software  design  can  be  divided  into  five  major 
categories: 

1 .  Modifications  to  UNIX 

2.  System  Routines 
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Memory  Allocation 


4  .  User  Interrupt  Kout i nes 

5  *  User  Interface  Routines 

The  remain  inn  sections  of  this  manual  describe  these  divi¬ 
sions*  References  are  repeatedly  mane  to  object  1 istSf 
object  buffer  lists/  and  element  lists.  These  formats  can 
be  found  in  Appendix  A •  Many  external  global  variables 
are  used  by  the  various  display  routines.  These  variables 
are  described  in  A  r  p  e  n  n  i  *  R  „  The  many  *'  a  e  f  i  n  e  s  M  are  de¬ 
tailed  in  A  o  o  e  n  d  i  x  C. 

Ihe  oeneral  dpsion  for  the  display  software  is  such 
that  all  routines/  defines*  and  external  names  ( U N I  X 
modifications  and  system  routines  excluded)  are  archived 
in  a  system  library/  / )  i b / 1  i b  v . a •  The  user  can  then  in¬ 
clude  this  file  at  compile  time  and  have  access  to  the 
entire  display  software  for  his  use*  As  a  result*  the 
convention  has  been  adopted  that  all  routines  and  alobal 
variables  beqin  with  "vo".  This  avoids  collision  of  name 
definition  if  the  user  avoids  names  starting  with  " vq" . 


I  I  *  MODIF I C  A  1  IOWS  TO  UNIX 


The  memory  allocation  scheme  of  UNIX  had  to  be  modi¬ 
fied  to  permit  the  Vector  General  Graphics  Display  System 
to  access  the  display  list*  A  real-time  system  call* 
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r t i m o ( )  9  has  d e e n  added  to  make  the  cal  I  inq  process  real- 
time  by  relocating  the  orocess  continuously  within  a 
t  h  i  rt  y**t  wo  thousand  three  hundred'  sixty-eight  byte  memory 
block.  Ihe  memory  allocation  of  the  process  is  riot  al¬ 
lowed  to  cross  a  memory  address  that  is  a  multiple  of 
thirty-two  thousand  three  h  u  n d r  e  d  s  i  x  t  y  -  e  i  q  h  t  .  This  al¬ 
lows  the  vector  general  oi sol  ay  to  programmatically  ad¬ 
dress  any  of  the  thirty-two  thousand  three  hundred  sixty- 
eioht  memory  addresses  without  resetting  the  extended 
memory  bits.  The  rt i me ( )  call  also  sets  the  process 
priority  so  that  the  operating  system  will  not  swap  the 
process  onto  the  disk.  This  locks  the  process  into  a 
fixed  memory  area.  The  real-time  process  can  then  dynami¬ 
cally  modify  the  display  list  while  the  vector  general  is 
continuously  accessing  the  same  display  list  via  its 
direct  memory  access  channel. 

Because  of  the  recuirement  to  lock  ci  real-time  process 
into  a  fixed  memory  area/  the  operation  system  permits 
only  a  limited  number  of  simultaneous  real-time  processes. 
If  the  required  memory  area  is  allocated  to  another  non- 
swapable  process  or  the  maximum  number  of  real-time 
processes  has  been  previously  allocated/  the  requested 
process  is  not  made  real-time  and  an  error  is  returned  to 
the  caller. 
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SYSTEM  ROUTINES 


Ill. 


The  vector  aeneral  has  been  divioed  into  six  minor 
devices.  This  simplifies  the  communication  between  the 
user  ana  the  device  driver.  Each  minor  device  has  associ¬ 
ated  with  it  a  f I  a  a  that  is  set  in  response  to  the  user’s 
ooenO  com m and.  Since  the  vector  aeneral  is  a  dedicated 
d e v i c e #  any  attempt  to  share  the  vector  general  between 
users  or  use  the  vector  aeneral  without  oneninc  all  minor 
devices  will  result  in  on  error  to  the  caller.  After  all 
six  minor  devices  have  been  opened*  a  single  vector  aen¬ 
eral  system  flag*  voiced  is  set.  1 H i s  system  lock  is 
checked  prior  to  any  read  or  write  operation.  In  addition 
the  process  is  made  real-time#  the  user  process  number  is 
retained  in  vqoroc#  and  the  display  is  flagged  as  idle. 
The  user  process  nurnner  is  used  to  pass  the  vector  general 
interrupts  to  the  user  via  osionol  (  )  .  The  display  idle 
flag  allows  the  initial  display  list  to  start  the  vector 
general  out  prevents  subsequent  display  lists  from  a  o  n  o  r  - 
mally  termination  a  previous  display  list. 

Initialization  of  user  controlled  parameters  is  usual¬ 
ly  the  next  reouirement.  When  the  user  issues  a  write() 
command  via  minor  device  two#  VGCNTRL#  the  contents  of  the 
user’s  buffer  is  interpreted  as  the  refresh  reference 
count.  Inis  determines  the  number  of  vector  aeneral  frame 
clock  interrupts  permitted  before  reinitialization  of  the 
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display  list 


The  vector  general  subroutine  stack  option  perr i ts 
access i no  non-ccnt iguous  display  lists.  However/  the  vec¬ 
tor  general  must  have  the  memory  adoress  of  any  non¬ 
contiguous  display  lists  encoded  within  a  continuous 
displev  list.  This  requires  the  user  to  have  access  to 
the  real  PDP-11  m e m o  r y  addresses  of  his  di sol  ay  lists. 
The  maooino  of  user  soace  to  real  menory  addresses  is 
accomplished  u  v  t  hi  e  user’s  issuance  of  a  w  r  i  t  e  (  )  cormano 
followed  by  a  r  e  a  d  (  )  co'rr.and  via  fr  i  nor  device  7  e  ro  r  V  G  • 
The  write  contend  stores  toe  real  PDP-11  memory  address  of 
the  user  buffer  in  the  variable  vgaadr.  The  user’s  read 
comm  and  Passes  the  value  of  the  real  PDP-11  rrerory  address 
to  the  user  via  the  o a s  s  c ( )  routine. 

iVhen  dynamically  rr  o  d  i  tying  display  lists/  the  memory 
a ci dress  encooeo  in  a  display  must  often  be  converted  to  a 
user  snace  address  for  reference  no  a  user’s  display  list. 
This  capability  is  provided  by  a  reed()  command  using 
minor  device  five/  VGCDVT.  Tn^  base  block  number  of  the 
user’s  process  obtained  by  the  vostrateoyO  routine  is 
passed  to  the  user  via  passcO. 

l^hen  the  user  has  created  the  display/  he  must  pass 
the  address  of  the  display  list  to  the  vector  a  e  n  e  r  a  1  . 
The  user’s  wri te()  command  using  minor  device  one/  VGDISP/ 


a  c  c  o  m  p  1 

i  shes 

this  task 

• 

The  lower 

si x  t  e  e  n 

bits  of  the 

address 

are 

stored 

i  n 

b  a  o  d  r  1  . 

The 

u  o  P  e  r 

two  bits  are 

encoded 

i  n 

b add r  x , 

I  f 

the  d  i 

sol  ay 

has 

not  been 
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initial y  zed 


the  routine  vostart  ( )  sends  the  address  to 


the  vector  general  ano  starts  the  vector  general1 s  opera¬ 
tion,  If  the  display  has  boen  initialized,  the  new  ad¬ 
dress  in  baddrl  represents  a  new  display  list  to  be  used 
after  completion  t  n  e  active  display  list. 

The  vector  general  operates  independent  of  the  user 
process  after  being  nivnn  a  display  list-  However,  com¬ 
munication  with  the  system  routines  is  maintained  via 
interrupts*  A  frame  clock  interrupt  signal  is  generated 
every  S  •  3  3  milliseconos  and  a  device  interrupt  is  generat¬ 
ed  whenever  the  user  operates  one  of  the  enabled  peri¬ 
pheral  devices.  The  frame  clock  interrupt  increments  a 
counter  until  the  counter  equals  the  refresh  reference 
count.  At  that  time  the  display  is  reinitiated  by  a  call 
to  vastartO. 

The  device  interrupt  handler  passes  the  interrupt  to 
the  user  via  signal  number  two  or  fifteen.  All  device 
interrupts  except  the  ASCII  CMTRL  T  character  are  passed 
to  the  user  via  signal  fifteen.  The  ASCII  CMRL  T  charac¬ 
ter  input  via  the  vector  general  keyboard  is  interpreted 
as  a  control  key  terminating  the  Process,  causi nq  the 
display  to  be  cleared,  and  notifying  the  user  via  signal 
two.  Occasionally,  the  user  may  desire  the  C  f\i  T  R  L  T  char¬ 
acter  as  data.  This  is  provided  by  input  of  the  F S C  char¬ 
acter  from  the  vector  General  keyboard.  This  results  in 
the  next  interrupt  bei no  sent  to  the  user  rcoardless  of 
the  type  or  content.  Each  device  interrupt  also  causes 


the  values  of  various  vector  General  reaisters  to  be  ex¬ 
tracted  end  stored  in  vqbuf  l)  for  transfer  to  the  user. 

The  transfer  of  the  vector  general  register  values  to 
the  user  can  be  accomplished  in  several  different  ways. 
The  most  common  is  in  response  to  a  device  interrupt.  Ihe 
user  can  acquire  the  interrupt  state  of  the  vector  general 
(except  the  dial  positions)  n v  issuing  a  read()  cornea no 
using  minor  device  one/  VGD1SP.  The  contents  of  vobuf U 
are  p  a  s  s  e  d  to  the  user  via  the  posse ( )  rout i nr*  The 
user's  readt  )  command  with  minor  device  t  w  o ,  V G  C  f  1 T  P  L /  will 
force  an  uodate  of  the  vobuf  U  nefore  passing  the  values 
to  the  user.  When  minor  device  t  h r e  e  ,  V  G  F  b  5  A  ,  is  used  in 
a  read  operation,  the  values  of  the  function  switches  are 
updated  prior  to  senoina  vabuf fj  to  the  user.  VGDIAL, 
minor  device  four,  extracts  the  values  of  the  ten.  dial 
positions  before  transmission  of  vobuf  (1  »  The  vector  Gen¬ 
eral  oial  positions  are  acoui red  via  a  separate  readt ) 
command  because  sixteen  microseconds  are  required  to  read 
each  dial  Position  to  the  full  twelve  bit  precision. 

The  vector  General's  P -hi t  interrupt  is  not  utilized 
in  this  software  interface.  Therefore,  the  P - b i t  inter¬ 
rupt  handler  is  an  empty  routine. 

The  source  c  o  a  e  for  the  system  routines  is  maintained 
in  /usr/svs/dnr/vodrvr.c.  A  cooy  of  vaorvr.c  is  included 


as  A  o  p  e  n  d i x  D 


MEN'ORY  ALLOCAT  ION 


IV. 


A,  FIXED  MEMORY  ALLOCATION 

The  user  space  memory  allocation  for  the  vector  Gen¬ 
eral  reoisters  and  the  picture  display  list  use  an 
unorthodox  technique  to  obtain  sequential  memory  loca¬ 
tions.  All  the  integer  variables  defined  in  the  file 
vqrea.n  correspond  to  the  named  vector  noneral  reoisters. 
The  order  of  the  variables  is  the  order  in  which  the 
values  are  read  from  the  vector  General.  because  the 
1 oaaer  ass  ions  variables  sequential  1  y  r  this  technique 
a  1  lows  the  variables  to  be  refer encea  by  incrementing  an 
address  Pointer  without  requi r i no  a  structure  definition. 

The  file  vqsys.h  contains  a  s i m i  1  i a  r  sequence  of  in¬ 
teger  variables  used  as  the  display  list  for  initializing 
the  picture  parameters.  Each  i nteqer  variable  of  this 
file  is  a  vector  general  com nan a  or  a  vector  general  data 
word.  The  order  of  the  variables  cannot  be  chanced 
without  affecting  the  operation  of  the  vector  general. 


R.  r  UNABLE  MEMORY  ALLOCATION 


The  arrays  and  vectors  that  directly  limit  the  size  of 
the  interface  data  structure  are  defined  in  the  files 
vqqlob.h  and  vqobj.h,  *\  hen  specific  applications  reouire 
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the  interface  data  structure  to  he  altered*  the  define 
statements  used  to  determine  all  array  and  vector  sizes 
are  locate a  in  vaapf ,h.  This  permits  any  of  the  system 
parameters  to  P  e  modified  by  referencing  a  sin ole  file. 

V.  USER  INTERRUPT  ROUTINES 

A  .  I  NT  t  R K U P 1  H  A  N  0  L  F  P  (vaaoi v ) 

The  basic  interrupt  handler,  v a d p i v ( ) ,  is  called  in 
response  to  s i ona I  fifteen  from  the  system  device  inter¬ 
rupt  handler.  lo  determine  which  vector  oeneral  device 
caused  tne  interrupt*  vodpivC)  obtains  the  interrupt  state 
of  the  vector  qeneral  via  the  user  interface  routine 
vqpi o( ) ,  van io()  transfers  the  values  of  ei qhty-tbr^e 
vector  oeneral  reai sters  into  e i u  h  t  y -three  contiguous 
words  of  memory  starting  at  the  address  of  v  q «-  f  s  1  .  1  he 
value  of  the  priority  interrupt  reouest  reuister  (P]R)  can 
then  u  e  examined  to  determine  the  appropriate  interrupt 
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H.  KEYbOARD  CHARACTER  INTERRUPT  HANDLER  (vqkpiv) 

The  k  e  y  b  o  a  rrj  character  interrupt  handler/  v  q  k  p  i  v  (  )  /  is 
called  when  the  P I K  bit  of  the  P 1 R  reoister  is  set.  The 
ASCII  keyboard  character/  vokbr,  is  placed  in  a  circular 
oueue/  vgkoue/  and  the  input  character  flap/  vqkpt  r /  is 
incremented  to  the  next  cell  in  the  Queue.  A  character 
input  flap#  vakflao/  is  incremented  each  time  a  character 
is  input.  The  routine  v  a  q  e  t  c  a  r  ( )  uses  this  flag  to  deter¬ 
mine  if  a  character  has  oeen  input. 

Whenever  the  ASCII  character  C  N  T  R  L  P  is  detected/ 
vqkque  is  cleared  ano  the  flaos  vakflao  anu  vckauo  f 1  are 
reset  to  zero.  This  effectively  clears  the  incut  Queue  of 
all  previous  characters. 

C.  MANUAL  INTERRUPT  HANDLER  (vqmpiv) 

The  manual  interrupt  pivot/  v q m p i v ( ) /  handles  the  PIS 
interrupt  from  the  vector  oeneral ♦  The  sole  action  of  the 
interrupt  handler  is  to  increment  a  counter/  vgmanint. 
This  counter  may  be  interrogated  and  cleared  by  the  user. 

D.  LIGHT  PEN  INTERRUPT  HANDLER  Cvglpiv) 

The  light  pen  interrupt  handler/  v  q 1 p i v ( ) /  is  respon¬ 


sible  for  both  the  light  pen  interrupt  (PIP)  and  the  light 


pen 


sense  switch  (SP1)  interrupts.  P^och  interrupt  cal)  to 


this  routine  must  he  processed  and  clenrod  oefore  another 
light  pen  interrupt  may  oe  accepted.  For  each  accented 
interrupt  the  follow  inn  vector  general  reaisters  are 
stored  in  successive  words  of  vnlnbuf  I.)  : 

Priority  interrupt  register  (PIP) 

Instruction  register  (IP) 

Word  count  ( a  C  k ) 

X  ,  Y /  L  coordinate  registers  (  X  P  ,  Y  P ,  1 R  respect  i vel y ) 

Pen  resolution  byte  (  P  f  i\i  R  ) 

Whenever  a  light  r en  interrupt  occurs  and  the  light 
pen  sense  switch  is  processed,  the  counter  v  c 1 n  s  f 1 g  is 
incremented.  Ihe  user  is  responsible  for  the  use  of  this 
counter. 


E.  PROCESS  TERMINATION  ROUTINE  (vncrash) 


vqcresh ( )  is  called  in  response  to 
vector  general  is  closeo  via  voternO 
terminated. 


signal  two.  The 
a n d  the  process  is 
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USFR  IN1FRFACF.  ROUTINE.  S 


The  user  interface  software  has  teen  desiqneo  to  make 
the  detailed  ooerat ion  of  the  vector  general  transparent 
to  the  user.  However,  the  user  shoulo  he  familiar  with 
the  data  structure  constructs  used  to  implement  the  inter¬ 
face. 

1  he  basic  concept  of  the  user  interface  software  is  to 
define  high  level  constructs  which  the  user  interface 
routines  convert  into  vector  general  commands.  Tnerp  are 
three  classes  of  constructs  defined:  objects/  elements, 
and  the  picture.  An  object  is  the  lowest  level  construct 
which  can  be  displayed  alone.  L  a  c  h  object  is  independent¬ 
ly  rotatable/  scalable*  and  translatable  into  any  portion 
of  a  t  h i  r  t  v  inch  by  thirty  inch  picture  space.  An  object 
can  be  as  I aroe  as  fifteen  inches  oy  fifteen  inches  and  be 
rotated  or  positioned  to  the  extreme  limits  of  the  picture 
space  without  distortion  to  any  of  the  remaining  visible 
port  ion.  tach  object  is  composed  of  one  or  more  indepen¬ 
dently  light  pen  bookable  elements.  An  element  is  com¬ 
posed  of  a  series  of  user  drawn  images  or  characters  en¬ 
tirely  relative  to  the  untransformed  image  space  of  its 
object.  An  object  can  be  defined  unrotated  in  suer  a  way 
as  to  fill  the  entire  object  soace  and  then  be  scaled/ 
rotated/  and  moved  so  that  the  image  space  is  the  ap¬ 


propriate  size/  is  viewed  from  the  appropriate  aspect,  ana 


is  in  thp  appropriate  area  of  the  picture.  The  picture 
defines  the  picture  scale  and  screen  coordinates  for  all 
objects.  Fioure  5-1  provides  a  oraohic  representation  of 
the  relationship  between  each  construct. 

The  user  is  responsible  for  the  exoneration  and  content 
of  each  elerrent.  Prior  to  its  inclusion  within  the 
display  list*  the  u s  e r  fill  each  element  with  the 

necessarv  draw  and  move  commands*  In  addition*  the  user 
must  provide  three  unused  woros  succeedi  no  the  draw  •'move 
commands.  These  three  words  are  used  by  the  interface 
routines  to  ensure  each  element  is  pronerly  terminated. 
This  prevents  the  vector  general  from  accession  m  e m  o  r y 
outside  the  display  list  i  *  the  user  fails  to  properly 
terminate  the  display  list. 

The  Generation  and  content  of  all  objects  a n d  the  pic¬ 
ture  is  the  responsibility  of  the  interface  software.  A 
set  of  routines  are  provided  to  link  elements  to  objects 
and  objects  to  the  picture.  Dynamic  modification  of  ob¬ 
jects  and  picture  Parameters  is  also  provided.  However* 
it  is  the  user's  responsibility  to  dynamically  modify  the 
element  content. 

The  f  o  1  1  o  w  i  r  i  o  routines  are  normally  t  r  a  ri  s  n  a  r  e  n  t  to  the 
user  and  should  not  he  accessed  directly  by  the  user. 
vacntrl(addr)  v  g  rr  p  i  v  (  ) 

vacrash()  vqobjmodfnum*  field  S/action) 

v  a  c  o  n  v  t  ( a  b  n  )  vooini t ( ) 


vadp i v ( ) 


vqoren ( ) 


voelemodCnum,  Holds, act  ion)  vqoi  crnod(  f  i  e  1  n,  ac  t  ion) 
vokpiv()  vqoi o( bn, mode) 

vqmpi v() 

The  routines  that  are  directly  accessahl e  by  the  user 


for  manipulation  a  n  o  modi 
structure  are: 

vqadde1e(adp,num,si 7  e ) 

v  q  b  1  i nk (type, n  u  m  , act  ion) 

vgclock(rate) 

vgcoordlnum, x , y , / ) 

v  q  c  s  r  (  n  u  m  ,  v  a  1  ) 

vgOe  1  el  e(nurr) 

v  a  d  e  1  o  b  j  (num) 

vgd i a  1  ( a bn ) 

vaqetcarO 

vqaet  fsw(anp) 

v q q e  t  Ipn(aTp) 


icotion  of  the  display  data 

vaini t ( ) 

vqiof set  (num, v  a  1  ) 
vqi  seal  (nurT  ,  v  a  1  ) 
v  q  1  a  m  o  s  (  a  P  p  ) 
valpen(type,num,act ion) 
v  o  m  k  o  b  j  (  ) 
vqoi cture ( ) 

V  O  p  O  S  t  (  p  x  r  p  y  ) 
vqnscal  ( v  a  1  ) 
v  q  r  o  t  a  t  e  (  n  u  m. ,  x  ,  y  ,  7  ) 
v  o  t  e  r  m  (  ) 


A.  SUPPORTING  R0UTINL3 


The  function  and  operation  of  the 
vqdpi v ( ) /  vqkoi v ( ) /  v  q  1  p  i  v  (  )  ,  and  v  g  m  n 
cussed  earlier.  See  section  I  V  for  a 


routines  vac  rash ( ) , 
v  f  )  have  been  d  i  s  - 
discussion  of  their 


fund  ion 


Picture  Definition 


Jump  to 
vgobjlist 


Object  Buffer  List 


call 

object  n 


jump  to 
vgidle 


call 
element  1 
call 

element  2 


Object 

Definition 


Figure  b~ 1 . 


Data  Structure  of  the  Disc) ay  Interface. 
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1  ,  Get  R e  o 1  Addrpss  Routine  (vqcntrl) 


Since  the  vector  aeneral  uses  a  DMA  channel  for 
display  list  access,  all  noncontiguous  display  lists  must 
be  linked  by  a  real  PDP-11  ado  res  s  at  the  point  of  discon¬ 
tinuity*  This  routine  taices  the  contents  of  the  input 
parameter,  addr,  and  converts  it  to  a  real  PDP-11  adoross 
in  a  format  accent oole  to  t  h  e  vector  general.  The  address 
is  passed  to  the  system  routines  by  the  routine  vgpio(). 
The  same  routine  is  called  to  return  the  real  address  in 
the  variable  raddr.  The  returned  address  is  not  accept¬ 
able  to  the  vector  general.  The  bit  manipulation  neces¬ 
sary  to  convert  the  real  address  into  the  vector  general 
memory  a dor ess  register  (MAR)  format  is  shown  in  Figure 
5-2. 


P  •  Get  User  Space  Address  Rout  i re  (voconyt ) 

The  interface  routines  maintain  no  recoro  of  the 
user's  element  addresses.  Therefore,  when  a  display  con¬ 
struct  is  modified,  the  user  space  address  of  the  elements 
involved  must  be  obtained*  The  MAR  format  address  found 
in  the  active  display  list  is  converted  tack  to  a  user 
space  acid  res  s  by  this  routine.  The  contents  of  the  param¬ 
eter  abp  (a  MAR  format  address),  is  first  converted  tack 
to  a  real  PDP-11  address  (see  Figure  5 - 2 )  .  Since  the 
display  process  is  real-time  and  locked  in  memory,  the 
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base  address  of  the  nrocess  regains  constant.  A  call  to 
vqciot)  returns  the  orocess  bloc^  number  in  the  variable 
base.  The  block  number  is  then  converted  to  t  h  ^  process 
base  address  by  mult  ini  vino  by  si xtv-fo ur  (sixty-four 
bytes  Per  b  1  o  c  fc  )  .  The  difference  between  the  process  base 
address  and  the  real  PDP-11  address  is  the  user  space 
address  offset  bv  the  size  of  the  user  vector,  The  user 
vector  is  a  structure  containino  all  the  nor  process  data 
that  does  not  need  to  be  referenced  while  the  process  is 
swapped.  Subtraction  of  the  user  vector  offset  yields  the 
user  s  n a  c  e  address. 


PHP-l 1  bOPD 

15  14  13  12  11  ino  a  7  6  s  (\  7  ?  1  0 


The  numbers  within  the  vector  qpnpral  word  are  the  bit 
numbers  of  the  P  0  P  —  1  1  word. 


F i oure  5*2 


PDP-11  to  Vector  General  MAR  For rat 
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v  o  n  i  f  v  P 1 e  r  e  n  t  Routine  (vonlemod) 


The  only  dynamic  system  modifications  that  can  be  per¬ 
formed  on  an  element  is  to  set  or  clear  the  blink  mode  and 
1  i  q  h  t  o  e  n  h  o  o  k  a  b  i  1  i  t  y  . 

The  element  defined  by  the  contents  of  the  parameter/ 
n u m /  is  located  by  a  sequential  search  of  elements.  The 
name  bvte  field  is  compared  with  the  input  parameter#  num. 
If  a  match  is  found/  t  no  value  of  the  field  bits  are  0  P ‘ e  d 
or  ANl)*ed  into  the  element  oeoendino  unon  the  value  of  the 
parameter/  action.  If  action  is  a  ?er c#  the  f i e 1 d  bits 
are  0  P *  e  d  into  the  element.  If  action  is  a  one^  the  com¬ 
plement  of  the  field  bits  are  AND 1 e d  into  the  element. 

The  routines  possible  return  cooes  are: 

0  -  iM  ormal  return 

- df  -  Ihe  element  Described  in  the  irout  parameter  docs 
not  exist 

-4  -  The  value  of  the  element  number  is  non-positive  or 

areater  than  two  hundred  fifty-six#  the  maximum 
number  of  elements  permitted  by  the  name  byte  field 
of  the  vector  general . 

The  error  codes  are  chosen  to  be  consistent  throughout  all 
the  interface  routines. 
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4  •  ^odi  f  i  y  0  b  j  e  c  t  Rout  i  op  (  voo  0  j  m  o  d  1 


Object  moni  f  icat ion  is  more  complex  than  the  element 
modification#-  because  of  the  number  of  parameters  that  may 
be  varied,  1  ho  structure  member#  van  u  nr  #  of  each  object  is 
compared  with  the  input  parameter#  n  u  m  #  until  a  match  is 
found.  There  is  no  reouirement  the  object  exist  in  the 
active  displav  list.  If#  however#  the  object  is  part  of 
the  active  display#  a  copy  of  the  object  is  ^ade  into 
vqworkhuf  I  1  .  vq^orkbur  0  is  then  linked  to  the  active 


d  i  s  p  1  a  v 

list  while  the 

o  r  cm 

n  a  1 

object  is  mod  if 

i  ea . 

The 

bit  values  of 

the 

input  parameter,  fi 

elds# 

oeter- 

m  i  n  e  w  h 

ich  parameters 

are 

t  o 

be  n o a  i  f  i  e o' . 

Ihe 

octal 

number 

represent i no 

the 

b  i  t 

position  of  f 

i  e  1  d 

ana  the 

r  e  s  u 1 t i n  a  operation  is  as  follows: 

0  -  Use  the  contents  of  vaf^rot  ()  as  the  new  values 
of  the  rotation  matrix. 

01  -  The  value  of  v  a  f  <  c  s  r  is  taken  as  the  new  value 

of  the  coordinate  scale  register. 

0  2  -  The  values  of  vqf  <*dxr#  vqf^dvr#  and  vaf«’d?r  are 
assumed  to  be  the  current  values  of  the  X#  Y#  and  Z 
cooroi nates  rescect i vel y. 

010  -  Ihe  new  intensity  offset  value  is  obtained  from 
vgf^ior . 

020  -  vqf f i sr  is  the  new  value  of  the  intensity 
scale. 


0400 


The  liqht  pen  halt  interrupt  is  set  or  cleared 


depending  unon  the  value  of  the  input  parameter 


act i on. 

01000  -  Display  blink  for  the  object  is  set  or 

as  determi ned  by  the  value  of  action* 

020000  -  The  light  nen  interrupt  is  enabled  or 

depending  upon  the  value  of  act  ion, 

After  all  modifications  have  been  completed/  t 
fied  display  list  is  again  linked  to  the  active 
list* 

The  nossiole  return  codes  are: 

0  -  Normal  return 

-1  -  Ihe  value  of  the  object  number  parameter 

positive  or  Greater  than  N 0 B J ,  the  maximum  n 
objects* 

-2  -  Ihe  object  cescrined  in  the  input  par  a me 

not  exist* 

S  .  Object  I n i  t  i a  1  i  ? a  t  i o  n  Routine  ( vooi ni  t  ) 


This  routine  is  called  as  Part  of  the  program 
ization  routine/  voinit()/  to  initialize  the  oojec 
tures  and  link  the  components  of  the  display  list, 
no  objects  are  included  at  program  initial izati 
vqidle  is  linked  to  the  display  list.  voidle  is  a 
general  HALT  instruction  used  to  keen  the  vector 
from  accessing  data  outside  of  the  defined  display 


c 1  eared 

d  i  s  a  b  1  r  d 

he  rod  i  •* 
d i sp 1  ay 


is  non- 
umber  of 

ter  docs 


initial- 
t  struc- 
Since 
on/  only 
vector 
genera  1 
1  i  s  t  s  • 


bach  object  is  intialized  with  vector  general  instructions 


permitting  the  f o 1  ) o w i n a  dynamic  m odi  f  icat ions: 


Change  the  nine  register  rotation  matrix 

Vary  the  twelve  bit  X,  Y,  and  Z  coordinate  displacements 
Modify  the  five  bit  intensity  offset  reaister 
Change  the  twelve  bit  intensity  scale  reoi ster 
Each  o eject  is  treated  as  a  subroutine  of  the  object 
buffer  list/  vaobjlistU*  Therefore/  the  last  executable 
instruction  of  each  objr 
Since  the  initialized  o  d  j  e  c 
element  of  each  object  is 
stack:  instruction  (0^4016). 
vector  general  to  art  t  h 
vqob  j  1  i  s  t  []  . 


i  s 

a  return 

Sut rout i ne 

j  u  m  p  * 

has 

no  elements/  the 

f  i  r  s  t 

n  i  t  i 

a  1  i  z e o  to 

a  loan  MAH 

from 

This 

instruct 

ion  causes 

t  h  e 

next 

display 

instruct  ion 

from 

6 •  Open  Device  Rout  i  Cynpoen) 

This  routine  o  o  e  n  s  all  six  minor  devices  and  saves  the 
file  descriptors  for  later  use  bv  vopi  o( )  and  vgternt )  , 
The  file  oescriptor  variables  for  the  various  minor  aev- 
i  ces  are* 

vgcmd  -  minor  device  z  °  r  o 
vqdisp  -  minor  device  one 

vgctrl  -  minor  device  two 

vgfnsw  -  minor  device  three 

vgdial  -  minor  device  four 

vqcnvt  -  minor  device  five 

If  a  device  cannot  be  opened  an  error  message  is  printed* 


?5 
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Piet  u  r  o  Modification  Routine  (  v  n  n  i  c  m  o  ri  ) 


W hen  the  user  desires  to  modify  the  blink  or  light  pen 


modes 

o  f 

the 

picture*  t  h i 

s  routine  Performs  the  rrodif 

i  c  a  ~ 

t  ion. 

1  f 

b  i  t 

nine  of  the 

input  oaram-eter*  field*  is 

set* 

the  b  1 

i  n  k 

Ti 

ode  of  each 

element  is  modified  accoroino  to 

the  va  ) 

ue 

0  f 

the  input  parameter*  action.  Li  it  eight 

a  n  a 

t  h i rteen 

o  f 

field  affect 

the  lioht  pen  hooka  bility  of 

the 

picture 

c 

8  .  P  1  0 

F xecut 

ion  Rout i 

ne  ( v  gp i o ) 

vap  i  o  (  ) 

is  cal 

led  by  a  1 

»  routines 

needing  t  o 

coruruni  - 

cate  with  t  h 

e  vector  general.  Ihe  innut  para met 

e  r  * 

bp*  is 

the  address 

of  the 

b  u  f  ter 

u  s  e  d  for 

the  read 

o  r 

write 

operation. 

T  h  e 

second 

parameter* 

mode  *  is 

a 

coded 

descript  ion 

of  the 

des i red 

operat ion. 

The  value 

a  n  d 

P  u  r  - 

pose  of  each 

mode 

is  as  follows: 

1  -  Reao  operation  using 

minor  dev i c 

e  7  e  r  o  (  C.  D  D  e  R  E 

AD)  . 

Used 

in  conjunction 

with  mode 

2  to  convert 

a  user 

space  address  to  a  real  address.  The  Puffer*  bp*  is 
a  pointer  to  a  receptor  for  the  real  aoaress. 

2  -  Vd  rite  operation  using  minor  device  ?ero  ( C^DewR  I  T E  )  • 

The  address  of  bp  is  sent  to  the  system  routines  for 
conversion  from  a  user  space  address  to  a  real  ad¬ 
dress  . 

3  -  Read  operation  usino  minor  device.'  one  (  0  I  S P <- R E  A D  )  . 


?6 


This 


r e  a  a  operation  will  return  the  eiahty-three 


vector  qenerol  register  values  as  stored  by  the  sys¬ 
tem  routines  to  the  eiahty-three  words  beginning  at 
address  bp.  Normally  this  mode  is  used  to  return 
the  interrupt  register  value. 

5  -  Read  operation  u  s  i  n  q  minor  device  two  (  C  T  R  L  <-  ^  h  A  D  )  . 

Similar  to  moco  three  except  the  current  values  of 
the  vector  general  registers  (not  the  dial  values) 
are  extracted  from  the  vector  General  prior  to  send- 
i no  them  to  the  caller. 

6  -  write  operation  us  i  no  minor  device  two  (  C  T  R L  R  I  T  fc  )  « 

The  contents  of  t  Pr  refresh  rate,  is  sent  to  the 
system  routines  to  define  the  refresh  reference 
count  . 

7  -  Read  operation  u  s  i  n  a  minor'  device  three  (  F  h  S  t\  <-  R  h  A  D  )  . 

Similar  to  mode  three  except  the  current  values  of 
the  function  switches  are  extracted  from  the  vector 
General  prior  to  the  read  operation. 

8  -  Unused 

R  -  Read  operation  using  minor  device  four  (DlAL<-RhAD). 
Similar  to  mode  three  except  the  ten  dial  position 
values  are  extracted  from  the  vector  general  prior 
to  the  read  operation. 

N 0  T  L :  The  dial  positions  are  analog  devices.  The 

conversion  from  anal oq  to  digital  reaui res  sixteen 
microseconds  per  dial. 
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Unused 


10  - 

11  -  Head  operation  u s  i  n a  minor  device  five  (  C  N  V  T  <-  R  E  A  D  )  . 
This  operation  is  usea  with  the  real  to  user  space 
address  conversion.  The  buffer  pointer,  bp,  is  the 
receotor  for  the  block  number  represent  in  a  the  be- 
air* nine  of  the  real-time  process. 

\  2  -  Unused 

Prior  to  any  read  or  write  operation  the  value  of  bp 
is  checked  for  zero.  The  caller  is  orevented  from  reading 
or  writing  usina  address  zero.  The  read  or-  write  opera¬ 
tion  using  address  zero  can  cause  the  operating  system  to 
fail* 


B.  USP  R  ROUTIPLS 

1  .  A  ci d  Element  P o u  t  i  ne  (voadael  e  ) 

A  user  defined  element  is  linked  to  a  previously  de¬ 
fined  object  by  this  routine.  The  a  a d  r e  s  s  of  the  user 
element  buffer  is  the  parameter,  a bp.  The  input  parame¬ 
ter,  size,  is  the  number  of  bytes  in  the  user's  element 
bu  f  f  e  r . 

MUTE:  The  user  is  required  to  provide  six  unused 
bytes  with  each  element.  The  six  bytes  (three 
words)  must  succeed  the  draw-move  commands. 
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The  value  of  size  is  a  byte  count  so  as  to  follow  the  con¬ 
vention  established  for  PDP-11  system  calls.  The  byte 
count  must  also  be  ever)  to  satisfy  the  word  addressing 
reaui rement  of  the  vector  general. 

If  the  byte  count  is  even  ana  creator  than  six,  a 
sequential  search  of  all  object  structures  is  initiated. 
The  s  t  r  u  c  t  u  r  e  member#  vanurr  #  is  com  oared  with  the  input 
parameter#  num.  when  a  match  is  founo#  a  search  of  that 


object  1 

1  s  elements  is  beoun.  The  element  search  is  con- 

duct  d 

in  increments  of  seven  because  seven  words  of  the 

object 

structure  are  reoui rod  to  link  each  element  to  the 

object . 

.  The  search  key  is  the  word  havino  the  name  byte 

of  the 

user  element.  The  search  is  completed  when  the  key 

word  is  zero*  before  link  inn  the  element  to  the  object# 
t  1 1  e  six  unused  bytes  (three  words)  of  the  users  element 


buffer 

are  assigned  as  follows: 

ft  o  r  d 

one  -  Terminate  character  mode  (  0  ?  q  ) 

ft  o  r  d 

two  -  Terminate  vector  mode  (015) 

ft  o  r  d 

three  -  load  MAR  from  stack  (  0  U  q  0  1  b  ) 

The  element  to  be  added  is  always  a p o ended  to  the  pre¬ 
viously  linked  elements  of  the  object.  fherefore#  the 
word  following  the  new  element  is  set  to  a  load  M  A  R  from 
stack  instruction  (O^qOlo).  The  seven  words  lin^ino  the 
element  to  the  object  are  next  assigned  as  follows: 
load  M M R  (0200?<f) 
element  number 
load  MAR  (0q0005) 
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M  C  &  value  (  0  <4  o  R  01) 


Store  MAR  m  stack  and  mark  (074?lt>) 

Load  Ni  A R  (  On  0  0  1  o  ) 

Address  of  element  in  MAR  format 
The  value  placed  in  the  name  byte  field  (d'?/R)  of  the  ele¬ 
ment  is  returnee  to  the  user. 

Several  conditio n s  could  cause  an  error.  The  possible 
error  codes  and  their  mean i nos  are  as  follows: 

-1  -  1  he  value  of  the  object  number  parameter  is  non- 

positive  or  qreater  than  NObJ,  the  maximum  nurreer  of 
objects. 

~  1  he  object  oescribed  in  the  input  parameter  dors 

not  Ovist, 

-3  -  Ihe  number  of  previously  assigned  elements  eoual 

b'LLL/  the  maximum  number  of  elements  per  object. 

-  A  -  Ihe  value  of  the  q  1  o  b  a  1  variable#  elonurn#  is 
ore a  ter  than  two  hundred  fifty-six#  the  maximum 
number  the  vector  General  name  byte  register  can 
contain, 

-b  -  The  user  element  buffer  contains  less  than  six 
bytes  or  the  byte  count  is  odd. 

-6  -  Ihe  user  element  buffer  address  is  ^ero. 

? .  Acid  Object  Routine  (vaaddobj) 


The  object  referenced  by  the  Parameter#  num#  is  to  be 
added  to  the  active  display  list  buffer,  vqobjlistN.  The 


object  to  o  e  ooded  is  located  by  seoypnt  i  ally  sea  rchro 
the  object  structure.  When  the  structure  member* 
matches  the  in out  parameter,  num,  the  op si  red  object  has 


been  founo. 

l  h  e 

address  of 

the  object  is  then 

r  1  a  c  e  o  in 

the  vari abl 

e  ptr 

.  Next  the 

e n d  of  the  active 

d  i 

sf  1  av  list 

is  founo  by 

mult 

iolyino  v a o t »  j  1  i  s  t  (  0  ]  by  thro** 

• 

This  p  r  o  •• 

vides  the 

ease 

for  insert i 

no  the  object.  T  h 

ree 

woros  a  r e 

reoui red  to 

1  i  n  < 

the  object 

to  v  o  o  h  j  1  i  s  t  ( J  . 

1  h  e 

t  a  s  o  is 

the  last  of 

t  h  e 

three  wore 

group.  The  three 

word  qrouo  is 

assignee)  as  follows: 

Store  M  A  tf  in  stack  ano  mark  (  0  7 1\  ?  ]  6  ) 
Loao  b A R  (  06  00 1 6 ) 

Address  of  the  object  i n  K A R  format 


The  interface  routines  are  oes i oned  to  ensure  that  the 
objects  in  voohjHstU  are  always  compact.  Therefor**/ 
each  object  addition  is  at  the  end  of  the  previously  a  o  d  e  d 
objects.  Since  the  last,  link  in  v  o  o  h  j  1  i  s  t  l )  should  a  1  w  a  y  s 
to  v  a  i  a  1  e  /  the  v  a  i  d  1  e  link  must  be  reassianed  i  m  rr  e  u  i  e  t  e  1  y 
followi no  the  newly  added  object.  1  he  instruction  s  e  - 
ouence  affect  in  q  this  link  is: 

Load  MAR  (060016) 

Address  of  v  q  i  d  1  e  in  MAR  format 


There  are  four  possible  return  codes  for  this  routine. 
0  *-  Normal  return 

-  1  -  I  he 


value  of  the  object  number  parameter  is  non- 


positive  or  Greater  than  N  0  B  J  *  the  maximum  numopr  of 


objects, 

"*2  -  The  object  describe^  in  t^e  input  parameter  d o e s 
not  exist. 

-3  -  The  number  of  previously  defined  objects  eaual 
» J 0 B J  t  the  maximum  number  of  o b  j  e c  t  s . 

3 .  D i so  1  a y  B 1  i n  <  Pout i ne  ( vobt  ink) 


The  display  blink  bit/  M  0  b  t  of  the  N1  C  R  register  is  set 
or  cleared  by  this  routine.  The  value  of  the  parameter/ 
type/  determines  whether  the  picture/  an  object/  or  an 
element  is  to  ce  affected.  The  value  of  the 
action/  specifies  the  clear  or  set  operation, 
codes  are  the  same  as  those  of  v g o b j  m o o ( ) . 

4  .  Set  Refresh  P  a  t-  e  Pout  i  np  (  vgc  1  o c  J 

The  routine  vgclockC)  is  the  only  routine 
control  parameter  to  the  system  routines.  The 
the  parameter/  rate/  (the  refresh  rate  in  hertz)  is  con¬ 
verted  into  an  integer  number  represent ino  the  number  of 
8.33  millisecono  interrupts  permitted  before  refreshing 
the  display.  This  integer  must  be  between  zero  and  nine. 
The  converted  value  is  sent  to  the  system  routines  via  the 
routine  vgpiot ) • 


sending  a 
conte nts  of 
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5 


Change  Coordinate  Routine  (vocoord) 


T  no  values  of  the  * ,  Y  /  and  Z  coorninat  e  displacements 


are  updated 

from  the  inout 

parameters 

by  this 

rout  i n e  . 

The  x  t 

y  f 

and  z  input  oara meters 

are 

placed  i 

n  vq  f  <*  d  x  r  / 

vo  f  egy  r / 

a  no 

v  a  f  e  o  z  r  r  e  s  r>  e  C  t 

i  v  e  1  y  , 

1  h  e 

rout ine 

vqob  j  mod (  ) 

is  then 

c  a 

lied  to  update 

t  h  e 

coordinate  oi 

s  p  1  a  c  e  m  e  n  t 

v  a  1 ues. 

The 

object  affected 

by  the 

new 

values  i 

s  i dent i - 

f  i  od  by 

the 

input  parameter/ 

num* 

The  range  of  the  X ,  Y ,  and  Z  cooroinate  displacement 
values  is  t  ron  neqat  i  ve  two  thousand  fortyeiahl  throuqh 
two  thousand  forty-seven,  Ihe  return  codes  for  this 
routine  are  those  of  vaobjmod().  The  return  codes  for 
this  routine  are  the  same  as  those  of  v  q o  b  j  m o  d ( ) • 

6 ,  Channe  Coordinate  Scale  Routine  (vnesr) 

The  coordinate  scale  register  of  an  object  is  undated 
by  this  routine*  f  h e  lower  twelve  bits  of  the  parameter/ 
v  a  1  #  is  assigned  to  vef^esr.  vgobjmoaO  is  then  called  to 
update  the  coordinate  scale  of  the  object  given  in  the 
parameter/  num.  The  return  codes  for  this  routine  are  the 
same  as  those  of  vaobjmodO, 
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7 


Delete  Moment  Routine  (vonp  1  e  1  o  ) 


Since  elements  are  linked  to  objects  dv  a  o  d  i  n  a  the 
element  address  to  the  element  field  of  an  object/  the 
deletion  Process  need  only  o  e 1 e  t  e  the  address  link.  The 
element  to  be  deleted  is  located  in  exactly  the  same 
manner  as  in  v  a  m  o  d  e 1 e ( )  .  In  this  routine/  however/  onl y 
the  object  contain i no  the  element  is  modified.  To  ore  vent 
unwanted  holes  within  an  object/  the  address  of  the  last 
element  linked  to  the  object  is  assicneo  to  the  location 
of  the  element  to  be  deleted.  This  deletes  the  desire o 
element  but  leaves  a  duplicate  copv  of  the  element  in  the 
d i s p 1  a y  list.  This  oupl  i cat  ion  is  eliminated  by  chanai no 
the  last  active  element  field  to  a  load  MAR  from  stack 
instruction  (  0  'Pi  0  1  6  )  . 

The  return  codes  for  this  routine  are: 

0  -  Normal  return 

~  2  -  Ihe  element  d  e  s  c  r i o o  d  in  the  input  parameter  does 
not  exist 

-4  -  The  value  of  the  element  parameter  is  non-rosi t i ve 
or  ore a  ter  than  two  hundred  f  i  f  t  y - s i x ,  the  size  of 
the  vector  General  name  byte. 

8 .  Delete  Object  Routine  (vndelobj) 

Deleting  an  object  reouires  the  address  link  in  the 


object  list  buffer 


vqob  j 1  i s  t  ( )  / 


to  be  cleared  and  the 


remaining  objects  links  to  be  compacted 


The  object  to  be  deleted  is  located  by  seouon t i a  1  1 y 
searching  the  object  structures  for  the  object  with  the 
structure  member*  v  g  n  u  m  *  matching  the  inout  parameter* 
num.  The  object  list  buffer  is  then  searched  to  determine 
if  the  object  is  currently  in  the  active  display  list.  If 
the  Object  is  currently  in  the  active  display  list,  the 
address  of  the  lost  object  in  vgobjlistll  is  copied  to  t  n e 
address  of  the  object  to  be  deleted.  Inis  last  object  in 
vqobjlistM  is  then  deleted  by  a  load  vAh  from  stack  in¬ 
struction  (  0  -Ui  0  1  6  )  .  The  structure  member*  von  urn,  is  reset 
to  7ero  making  the  object  available  for  further  use. 

The  possible  return  codes  for  this  routine  are : 

0  -  formal  return 

- 1  -  I  he  value  of  the  object  number  parameter  is  non- 

positive  or  greater  than  NOBJ,  the  maximum  number  of 

objects. 

- d  -  I  he  object  described  in  the  inout  parameter  ones 
not  exist. 

R.  Get  Dial  Values  Routine  ( v g d i a  1  ) 


This  routine  obtains  t  h  e  vector'  general  dial  values 
and  returns  them  to  the  caller.  The  twelve  bit  dial 
values  are  returned  to  the  caller  in  a  ten  word  buffer 
provided  by  the  caller.  The  contents  of  the  parameter* 
abp#  is  the  beginning  address  of  the  buffer. 


(ipt  C  h  a  r  d  r  t  p  r  Rout  i  no  (vcoe  tear) 


1  0  . 


The  keyboaro  input  f 1 aa#  va<  f 1 acp  set  by  tne  Keyboard 
interrupt  handler,  v  q  k  d i v ( ) ,  is  checked*  If  it  is  zero,  a 
minus  one  is  returned  to  the  caller.  if  it  is  non-zero, 
vpkflao  is  decremented  and  the  value  c  f  vqkquef 1  is  used 
as  a  pointer  into  the  circular  keyboard  character  queue# 
v  g  k  q  u  e  /  to  fetch  the  ASCII  character  for  the  caller. 


11.  Get  Function  Switch  Pout ino  (voaetfsw) 


Two  vector  oeneral  register  words/  vq<-  f  s  1  and  voefsP, 
are  returnee  to  the  user  beoi nni nq  at  the  buffer,  a bp. 
Each  bit  position  of  the  returned  words  is  the  value  of 
one  function  switch.  If  a  b i t  is  set/  the  function  switch 
has  been  oppressed.  The  first  two  rows  of  the  function 
device  are  contained  in  v  a  <-  f  s  1  .  Ihe  last  sixteen  function 
switches  are  retained  in  v  a  f  s  2  • 

IP.  Get  linht  Pen  Interrupt  Values  Pout i ne  (voqet Ion) 


The  values  of  the  fol iowino  vector  general 
are  read  sequentially  into  the  buffer  abp. 
vg<-pir  -  priority  interrupt  register 
v  q  <-  i  r  -  instruction  register 
vq*-wcr  -  word  count  from  start  of  display 
vg«-xr  -  twelve  bit  X-coordi  nate  displacement 


reai sters 


vg^yr  -  twelve  bit  V-coordinate  displacement 
v  g  <-  z  r  -  twelve  bit  Z-coof'di  nat  e  displacement 
vq^-penr  -  one  bit  pen  hit  resolution  count 


13.  Display  List  Initialization  ( v  a i n i t  ) 


1  he  vai ni t  (  )  routine  performs  all  display  list  ini¬ 
tialization  and  default  parameter  assignment .  Ihe  user 
process  is  made  real-time  as  part  of  the  call  to  vqorenC ) , 
If  vpopenl  )  can  not  make  tne  process  real-time  or  access 
all  the  minor  aevicesr  the  user  process  is  terminated 
without  further  initialization. 

After  successfully  access i no  the  vector  general  minor 
devices*  all  of  the  data  structure  buffers  ore  assigned 
oe  fault  values  and  linked  to  form,  a  bare  nones  display 
system.  At  this  point  the  display  could  be  run  ano  all 
interrupts  would  be  processed. 

Ihe  following  default  picture  parameters  are  set  at 
display  initialization: 

AM  function  switches  are  cleared. 

The  refresh  rate  is  set  to  forty  hertz. 

The  frame  clock,  keyboard,  and  manual  interrupts  are 
enab 1 ed . 

The  display  is  enabled. 

Maximum  picture  scale  is  set. 

Post  X  and  post  Y  displacement  values  are  set  to  zero. 
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1  .  Set  Intensity  Offset  Routine  (yen  of  sot  ) 

The  input  parameter#-  val#  is  placer!  in  vqf^ior  and  the 
object  modification  routine#  v  q  o  b  j  m  o  d  (  )  #  is  called  to 
uodate  the  intensity  offset  register  of  the  object  refer¬ 
enced  bv  the  input  parameter#  num.  1  he  return  codes  for 
this  routine  are  those  of  v o o  b  j  m o  d ( )  . 

1 b  *  Set  Intensity  Scale  Rout  i n e  (vqi seal  ) 

The  input  Parameter#  val#  is  placed  in  vgf^isr  and  the 
object  modification  routine#  vaobjmodf)#  is  called  to 
update  the  intensity  scale  register  of  the  object  refer¬ 
enced  by  the  input  parameter#  nun.  The  return  codes  for 
this  routine  are  those  of  voohjmodf ) . 

1 6 .  Set  Function  Switch  tames  Routine  (vol arcs) 

The  four  successive  words  beginning  at  the  buf  for 
address  abp  are  assigned  the  four  vector  General  function 
switch  reoisters  vos^fsl#  v  q  s  <-  f  s  ^  #  vqs«-fs3#  and  v  q  s  <-  f  s  ^  . 

1  7  .  Set  Lioht  Pen  Enable  (yoloen) 

The  light  oen  hooka bility  of  an  element  or  object  is 
set  or  cleared  by  this  routine.  If  the  input  parameter# 
type#  is  a  zero#  the  values  of  the  input  parameter's#  n  u  m 
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and  action#  are  passed  to  the  picture  m o  d i  f  i  c  a  t  i o  n 
routine#  v  a  p  i  c  m  o  d  (  )  .  If  type  is  a  o ne>  the  parameters  are 
passed  to  the  object  modification  routine#  vaobjmodf).  A 
type  of  two  will  modify  the  element#  n  u  m #  by  calling 
vaelemoaO.  The  return  codes  are  those  of  the  modifica¬ 
tion  routine  called, 

1  8  .  V  a  k  e  C  b  i  e  c  t  Routine  (  v  o  m  k  o  t  j  ) 

This  routine  initializes  an  object  structure  for 
display  use.  before  the  object  can  be  used#  it  must  he 
initialized  to  the  system  default  Parameters.  Ihe  default 
parameters  are; 

Maximum  intensity  offset 
Constant  intensity  scale 
One-half  coordinate  scale 

Zero  for  the  X#  Y#  ana  Z  coordinate  displacement 
Zero  rotat ion 

Same  interrupts  as  set  by  the  vain  it  routine 

An  unuseo  object  is  founa  by  s  e  a  r  c  h  i  n  a  the  object 
structure  until  an  object  is  found  with  a  zero  ass i one d  as 
the  structure  member#  v  q  n  u  m  •  The  instructions  and  default 
parameters  are  assigned  to  the  structure  and  an  object 
number  is  assioned  from  the  global  variable  vgcurof  j  .  The 
caller  is  given  the  new  object  number  as  a  return  value. 

A  possible  error  return  code  is: 
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~  3  -  Ihe  numner  of  previously  defined  objects  eoual 

NUbJ  ,  the  maximum  number  of  objects. 

1 9 •  Start  Disnlay  Routine  (vonictur^) 

The  Deqinninq  address  of  the  display  list/  v  g  s  1  d  f  s  1  , 
is  passed  to  the  vector  general. 

2  0  .  Change  Post  X  and  Post  V  Displacement 

Routine  (  vorest  ) 

Ihe  lower  twelve  bits  of  the  input  parameters,  p x  and 
py,  are  assigned  to  the  vector  general  register  vas**pdxr 
and  vas^odyr  respectively. 

2  1  „  Change  Picture  Scale  Routine  (varscal  ) 

The  picture  scale  is  changed  to  the  twelve  bit  value 
of  the  input  parameter,  v  a  1  . 

2 2 .  Rotate  Routine  (  v  a  r  o  t  a  t  e  ) 

Ihe  input  parameters  x,  y,  and  ^  are  the  radian  meas¬ 
ure  of  the  rotation  about  the  X,  Y,  and  l  axis  respective¬ 
ly.  Ihe  necessary  calculations  to  change  the  nine  regis¬ 
ter  rotation  matrix  are  performed  here-  The  final  values 
entered  into  the  rotation  matrix  represent  the  trigometric 


values  corresponding  to  the  requested  rotation  anout 


each 


axis.  The  rotation  matrix  of  the  object  referenced 
input  parameter,  num,  is  updated  to  reflect  the  new 

t  i  on. 


2  3  .  1  e  r  m  i  n  a  t  e  1  ho  l)  i  snl  ay  (vatorr) 


Tne 
closed/ 
the  f i n a 


v e c  t  of' 

oeneral 

is  cleared, 

the  minor 

and  the 

process 

is  made 

non 

r  e  a  1  ~  t  i  m  e 

1  interface  call 

by  the 

user 

* 

de  v  i 
T 


4  1 


by  the 
rot  h- 


es  are 
is  is 


APPENDIX  A 

DATA  STRUCTURE  F  0  P  MATS 


Picture  Parameter  Format 


Inst  r  u  C.  t  ion  Funct  i  on 

Load  L  a  rp  p  s 
Lamps  0  ~ 1 b 
tamos  1 6 -  3  2 f  term, 
Loan  Pic  Scale 
P i c  Scale/  term. 

Load  Post  0  i  s  p  . 

X  0 i s  p 1  a  cement 
Y  Displacement/  term 
Load  Lit  pen  enable 
Enable  lit  pen,  term 
Loan  Lames 
Lamps  1  6  -  2  3 
L  amps  24-31,  term* 
Load  Stack  Pointer 
Stack  Address,  term. 
Load  Mem.  A  d  ci  r 
Object  Buffer  A  d  d  r , 


'4  2 
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Object  buffer  r  ornat 


Inst  ruct  ion 


F  unc  t  ion 


or 

7T1 

1 

o 1 

1 

o' 

1 

0  ; 

1 0 

1 

1 

0 

•  L 

t 

"7 

/ 

1 

» 

1 

i 

2 

| 

1 

1 

o 

L  « 

1 

0 

1 

i 

a 

i 

1 

0 

1 

r 

0 

f 

1 

r 

o 

l  . 

— ^ 

0 

1 

i 

0 

j 

1 

0 

1 

!  1 

0 

1  f 

0 

i 

1 

1 

1 

0 

1 

* 

7 

i 

a 

i 

I  i 

? 

1  t 

1 

1 

o 

{  ^ 

0 

\ 

i 

A 

i 

1 

o 

■  j 

1  * 

0 

1  I 

1 

l 

h 

1 

1 

(> 

1 

0 

i 

0 

1  1 

t  1 

0 

t  1 

0 

( — 

1 

L 

1  i  ii  * 

Oum  of  objects  active 
Store  MAP  in  StacK  L  Mark 
Loan  MAP 

Object  1  address*  term. 
Store  MAP  in  Stac<  L  Mark 
Load  M  A R 

Object  ?  Address*  term. 


J  11  1  1 

1 

0 

( 

r 

7 

1 

u 

1 

£> 

1 

1 

6 

I 

Store  MAP  in  Stack  &  Mar 

0 

1 

u 

1 

0 

J 

0 

i 

1 

o 

Load  M  A P 

— j — j~ 

J 

f 

1 

1 

i 

i 

0 

1 

0 

1 

0 

1 

0 

I 

0 

1 

1 

1 

Object  n  Address^  term. 

i 

0 

! 

1 

a 

i 

1 

0 

I 

1 

0 

1 

1 

1 

b 

I 

Load  M A  R 

1 

0 

1 

i 

0 

!  | 

1 

1 

n 

1 

i1 

vqiole  Address*  term. 

4  3 


Object  Format 


In 

s  t 

ruct 

i  on 

E unct ion 

o' 

o' 

o' 

o' 

0 

0 

Object  Number 

0 

n 

0 

0 

1 

u 

Load  Intensity  Offset 

0 

7 

7 

7 

6 

0 

Intensity  Offset 

0 

0 

0 

0 

0 

1 

Intensity  Scale#  tern. 

0 

a 

0 

0 

2 

s 

toad  Coordinate  Scale 

0 

7 

7 

b 

0 

Coordinate  Scale 

0 

0 

0 

0 

0 

0 

X-Coordi nat e 

0 

0 

0 

0 

0 

0 

V-Coorm  na  t  e 

0 

0 

0 

0 

0 

0 

Z~Coordi nat  e 

0 

1 

7 

7 

6 

0 

Rotate  X  /  X 

0 

0 

0 

0 

0 

0 

Rotate  X/Y 

0 

0 

0 

0 

0 

0 

Rotate  X / Z 

0 

0 

0 

0 

0 

0 

Rotate  Y/X 

0 

7 

7 

7 

6 

0 

Rotate  f / Y 

0 

0 

0 

0 

0 

0 

Rotate  Y / 7 

0 

0 

0 

0 

0 

0 

Rotate  Z / X 

0 

0 

0 

0 

0 

0 

Rotate  Z / Y 

0 

/ 

7 

7 

6 

1 

Rotate  7  /  Z  #  term. 

0 

4 

0 

0 

2 

2 

Load  N a  m  n  Byte 

0 

0 

0 

0 

0 

1 

Element  Rum o  e  r 

0 

t\ 

0 

0 

0 

b 

L  o  a  o  M  C  R 

0 

<1 

b 

2 

0 

1 

Enable  bits,  term, 

0 

7 

4 

2 

1 

6 

Store  MAR  i n  Stack  K  Mark 

0 

0 

0 

1 

b 

Load  MAR 

0 

0 

0 

0 

0 

1 

Element  1  An dr#  term. 

0 

a 

0 

0 

2 

2 

Load  Name  B y  t  e 

0 

0 

0 

0 

0 

1 

Element  Number#  t  e  r m . 

0 

a 

0 

0 

0 

5 

Load  M C  R 

0 

a 

b 

2 

0 

1 

Enable  bits#  term. 

0 

7 

4 

2 

1 

b 

Store  MAR  in  vS  t  a  c  k  &  Mark 

0 

a 

0 

0 

1 

b 

Load  M  A  R 

0 

0 

0 

0 

0 

1 

Element  2  addr#  term. 

0  4  0  0  1b 
0  0  0  0  0  1 

l).a.a.0.1.6 


Load  MAR 

Element  n  Aririr,  term* 
Load  MAR  from  Stack 


F  1  e  o'  e  n  t  Fermat 


Inst  ruct  i^n 

I  |  i  i  i 

0  0  0  0  0  0 


0  0  0  0  0  0 


0  0  0  0  15 

-I 

0  0  0  0  ?  0 


r  u  n  C 1  ion 

User  Defined  Instruction 


User  Defined  Terminate  Inst. 
Terminate  All  Vector  Modes 
Terminate  Character  Mode 
Load  Mar  from  Stack 


45 


APPEND I X  B 


GLOBAL  VARIABLES 


All  static  global  variables  used  through  the  Interface  routines  are  con¬ 
tained  in  the  four  files  listed  here. 


vgg  lob.  h 


1 

ini  vgkque  [  rfKQUIC]  ; 

// 

queue  holding  the  last  NKQUE 

2 

Q 

// 

ASCII  keyboard  characters 

O 

4 

i  n  t  vgs  t  a  c  k  [  NSTACK1  ; 

// 

subroutine  stack  buffer  used 

5 

a 

// 

with  VG  subroutine  jumps 

o 

7 

8 
9 

int  vgworkbuf C VGOBJS IZ3 ; 

// 

work  buffer  for  sys  mods 

i n  t  vg lpbuf[7]  ; 

// 

buffer  to  hold  the  VG  light  pen 

10 

// 

interrupt  registers 

1  1 

12 

int  vgcurobj ; 

// 

current  object  number 

13 

14 

ini  vg  idle; 

15 

char  vgkflag; 

// 

ke yb oard  c ha racter  flag. 

16 

// 

Incremented  when  ASCII  character 

17 

// 

is  input 

18 

19 

c  ha  r  vgkp  t  r ; 

// 

pointer  to  Icque  location 

20 

// 

receiving  the  next 

21 

// 

ke  y b oard  c  ha  roc  ter 

22 

23 

char  vgkque  f 1 ; 

// 

kque  pointer  to  the  next  character 

24 

// 

to  be  read 

25 

26 

c  ha  i*  vgina  n  i  n  t  ; 

// 

manual  interrupt  counter 

27 

28 

char  vglpflag; 

// 

light  pen  flag.  Set  when 

29 

// 

a  light  pen  interrupt  occurs. 

30 

// 

Hus  t  be  cleared  by  user  before 

31 

// 

a  second  interrupt  will  be 

32 

// 

process  e  d 

33 

34 

char  vg 1 ps  fig; 

// 

light  pen  sense  switch  flag. 

35 

// 

Set  when  a  light  pen  interrupt 

36 

// 

occurs  and  the  sense  switch  is 

37 

// 

depressed . 

38 

39 

40  //  system  work  buffer  used  to  hold  the  values  to  be 

41  //  associated  with  the  vector  general  register  commands 

42 


43 

int 

vgf _psc  a  1 ; 

// 

p 1 c l ure  scale 

44 

in  t 

vg  f  _r o  t [ 9  3  ; 

// 

rotat  ion  ina  tr  lx 

45 

int 

vg  f  _ i o  r ; 

// 

intensity  offset 

46 

int 

vgf _isr ; 

// 

intensity  scale 

47 

int 

vg  f  _c  s  i*  ; 

// 

coord i na  t  e  scale 

48 

int 

vgf  _d xr ; 

// 

X-coord  ina  t  e 

49 

int 

vgf^dyr ; 

// 

Y- coord ina  t e 

50 

Int 

vgf.dzr ; 

// 

Z— coord ina  te 

46 


V£obj  .  it 


1  Ini  vgeleiiura;  //  current  element  number 

2  lilt  vgobj  llstf  OLISTSIZ)  ;  //  object  list  buffer 

3 

4 

5  //  structure  of  objects  tha  t  the  user  has  available  for 

6  //  d  is p  lay 

7 

0  struct  vgobj 


9 

10 

C 

i  n  t 

vgnuin ; 

// 

object  number 

1  1 

ini 

vg  1 i o  r ; 

// 

load  lute ns ity  offset 

12 

lut 

vg lor; 

// 

i n t e ns ity  offset 

13 

int 

Vfirisr  ; 

// 

intensity  scale,  terminate 

14 

In  t 

vg 1 c  s  r ; 

// 

load  coord  1 na to  scale 

15 

int 

vgc  s  i' ; 

// 

coordinate  scale 

16 

Int 

vg-x ; 

// 

X— coord i na  t e 

17 

int 

vgy; 

// 

Y-coord ina  te 

13 

Int 

Vfirz  ; 

// 

Z— coord i na  te 

19 

lilt 

vgvo t  C  91  ; 

// 

rotat  Ion  ma t  r  1  x 

20 

Int 

vge leCELISTSIZl ; 

// 

display  e 1 e  me  ut  buffer 

21 

in  t 

vgnoop ; 

// 

no  op  instruction 

22 

)  vgo  i>  j  [  NOliJ  ]  ; 

vgreg. h 

1 

2 

3 

A, 

// 

NOTE:  P0  NOT 

Al, TER  THE  ORDER 

OF  THESE  VARIABLES 

5 

// 

The 

vn  riables  1 

ii  this  file 

cor] 

respond  to  the  named 

6 

// 

ve c  t  o r  ge liera  1 

registers . 

llic 

order  is  the  order  in  which 

7 

// 

the 

values  are 

assigned  by 

the 

device  d  r 1 ve  r .  The  loader 

8 

// 

assigns  these  variables  sequentially.  Programmatically, 

9 

// 

t  he; 

se  are  treated  as  a  vector. 

10 

1  1 

12 

Int 

vg-fs ; 

// 

function  switch  unit  1 

13 

int 

vg_k.br ; 

// 

ke  y b  oard  c  ha rac ter 

14 

int 

vg- t i x ; 

// 

tablet  x  i upu t 

15 

in  t 

vff_t iys 

// 

tablet  y  i npn t 

16 

int 

vg-p  i  r  ; 

// 

priority  interrupt  requests 

17 

iu  t 

vg.inc  r  ; 

// 

mode  and  control  ( iuc 1  Int  enables) 

18 

int 

vg— 1 r ; 

// 

display  instruction 

19 

ini 

vg_wc r ; 

// 

word  count 

20 

in  t 

vg_xr ; 

// 

X-coorJ 1 na  t e 

21 

i  n  t 

vg„yr ; 

// 

Y-cooi’d  1  na  t e 

22 

lilt 

vg-zr ; 

// 

Z-coord Ina te 

23 

int 

vg-a i r ; 

// 

auto  -  lucre  me  lit 

24 

Int 

vg_ lor ; 

// 

intensity  offset  (dimming) 

25 

i  n  t 

vg_ i s r ; 

// 

Intensity  scale  (cueing) 

26 

int 

vg_m  r  ; 

// 

me  mo  ry  fetch  address 

27 

Int 

vg-s pr ; 

// 

stack  pointer 

20 

lilt 

vg-tgr ; 

// 

temp,  general  purpose 

29 

Int 

vg.psr; 

// 

p  5  c  t  ure  scale 

30 

int 

vg„nmr ; 

// 

n  a  me  byte 

31 

int 

vg'.csr  ; 

// 

coordinate  scale 

32 

Int 

vg_dxr ; 

// 

coord  i  na  tc  X  displace  me  ii  t 

33 

int 

vg-dyr ; 

// 

cooi’d  inate  Y  d  is  pa  Icemen  t 

34 

int 

vg-dzr ; 

// 

coordinate  Z  displacement 

35 

int 

vg_r  111*; 

// 

rotation  matrix  X/X  scale 

36 

int 

vg_r 12r ; 

// 

rotation  matrix  X/Y  scale 

37 

int 

vg_r 1 3r ; 

// 

rotation  matrix  X/Z  scale 

38 

Int 

vg_r2 1 r ; 

// 

rotation  ma  1 1*  1  x  Y/X  scale 

39 

int 

vg_r 22r ; 

// 

rotat  Ion  ma  1 1’  i  x  Y/ Y  scale 

40 

int 

vg_r23r ; 

// 

rotation  matrix  Y/Z  scale 

47 


41 

int 

vg_r3 1 r ; 

// 

rotation  matrix  Z/X  scale 

42 

in  t 

vp;_r32r  ; 

// 

r  o  t  a  t  Ion  tna  tr  lx  Z/ Y  scale 

43 

l  n  t 

vg_r33r ; 

// 

rotation  inn  t  r  i  x  Z/Z  scale 

44 

int 

vg_wrac r ; 

// 

window  node  control 

45 

i  n  t 

vg_xlir  ; 

// 

window  bound l* y  X  high 

46 

int 

vg_x 1 r : 

// 

window  bound ry  X  low 

47 

int 

vg-ybr ; 

// 

window  boundry  V  high 

40 

1  nt 

vg-y 1 r ; 

// 

window  boundry  Y  low 

49 

int 

vg-zhr ; 

// 

window  boundry  Z  high 

50 

int 

vg_z 1 r ; 

// 

wind ow  boundry  Z  low 

5) 

int 

vg__pd  >rr  ; 

// 

po  si  X  displace  me  n t 

52 

int 

vg_ pd yr ; 

// 

pos  t  Y  displacement 

53 

int 

vg_c c  r ; 

// 

color  control 

54 

int 

vg.iui  1  ; 

// 

unused 

55 

int 

vg_un2 ? 

// 

unused 

56 

1  n  t 

vg— uii3 ; 

// 

unused 

57 

int 

vg_un4 ; 

// 

unused 

58 

int 

vg_p irx; 

// 

ex  dev  priority  in  ter  r  req 

59 

int 

vg.nic  rx; 

// 

ex  dev  interrupt  enables 

60 

int 

vg_pe  rir  ; 

// 

pen  hit  resolution  count 

61 

int 

vg^unS ; 

/  / 

un  ns  c  d 

62 

int 

vg_unC ; 

// 

unused 

63 

int 

vg_un7 ; 

// 

unused 

64 

int 

vg _ f  s  2 ; 

// 

function  switches  unit  2 

65 

int 

vg_kb2 ; 

// 

keyboard  character  unit  2 

66 

1  n  t 

vg_un 8 ; 

// 

unused 

67 

int 

vg_un9 ; 

// 

unused 

63 

int 

vg_f  s  3 ; 

// 

function  switches  unit  3 

69 

int 

vg_fcb3 : 

// 

keyboard  character  unit  3 

70 

int 

vg-uri  1  0 ; 

// 

unused 

71 

int 

vg — mi  1  1  ; 

// 

unused 

72 

int 

vg_f«4; 

// 

function  switches  unit  4 

73 

int 

vg_kb 4 : 

// 

keyboard  character  unit  4 

74 

int 

vg-im  1 2 ; 

// 

unused 

75 

int 

vg-uii  1 3 ; 

// 

unus c  d 

76 

int 

vg'— pX; 

// 

picture  X  coordinate 

77 

int 

vg-pV; 

// 

picture  Y  coordinate 

78 

int 

vg_pZ ; 

// 

picture  Z  coordinate. 

79 

int 

vg-.l  x ; 

// 

Joystick  X  input 

80 

int 

vg-jy; 

// 

j  o  y s tick  Y  input 

81 

int 

vg_ j z ; 

// 

J  o  ys  t  i  e  k  Z  i  n  i>  u  t 

82 

i  n  t 

vg_d i a  1 C  10 1  ; 

// 

dial  i npu t  s 

83 

int 

vg— c xr ; 

// 

window  acquisition  X  coord 

84 

int 

V£?“C  yr  ; 

// 

w i nd o w  a c  qu is i t ion  Y  coord 

85 

int 

vg-czr ; 

// 

window  acquisition  Z  coord 

vgs  ys  .  h 


1  * 

2  // 

3 

4  // 

5  // 

6  // 
7  // 


NOTE: 


DO  NOT  ALTER  THE  CONTENTS  OF  THIS  VECTOR? 


These  variables  are  the  vector  general  picture  initialization 
instructions  and  data  words.  'Die  loader  assigns  the  variables 
s  e  quo  n  t  i  a  1  I  y  allow!  ng  t  he  in  to  be  treated  ns  a  voclor.  The 
order  of  the  variables  cannot  be  chaugcd  without  affecting 


8 

9 

t  he 

operation  of  the  vector 

ge  ne  ra  1  . 

10 

1  1 

lilt 

vgs_ldfsl  C040000): 

// 

load 

function  switch 

un  i  t 

1 

12 

i  n  t 

vgs^fsl  CO)? 

// 

function  switch  lamp 

bits 

0-7 

13 

int 

vgs „fs2  C  0 1 } ; 

// 

function  switch  lamp 

bits 

8-  15 

14 

int 

vgs-lpsr  C 04002 1 } ; 

/V 

load 

p ic  t  ure  scale 

15 

int 

vgs.psr  C 07776 1 ) ; 

// 

picture  scale,  terminate 

16 

int 

vgs_ ldpd  C040G47}; 

// 

load 

post  d  iap  laceir.cn  t 

17 

int 

vgs _ pd xr  CO}; 

// 

pos  t 

X- d is place  me  n  t 

18 

Int 

vgs_pdyr  C  0 1 } ; 

// 

pos  t 

Y-d  i  s  p  1  a c e inc  n  t  , 

terraina  te 

19 

int 

vgs-xmer  C 040057}; 

20 

int 

vgs-xpir  C03}; 

21 

int 

vgs _ 1 f 2  C  040064 } ; 

// 

load 

function  switch 

uni  t 

2 

40 


to  to  to  to  to 

c\  Ot  CO  [0 


27 


inf 

vgs_f s3 

(0)  ; 

// 

in  t 

vgs  _  f  s  4 

COl)  ; 

// 

i  n  t 

vgs  _  1  s  t  k 

.  COdOO  17)  ; 

// 

int 

vgs_ s t  k 

CO)  ; 

// 

int 

vgs  _  1  ma  r 

(040016); 

// 

int 

vgs  —ma r 

CO)  ; 

// 

function  switch  lamps  0-7 
function  switch  la mps  {]-  1 5  , 
load  stack  pointer 
stack  pointer,  terrains  te 
load  memory  address  register 
memory  fetch  address,  term. 


term. 


49 


APPENDIX  C 

COMPILE  TIME  CONSTANTS 


The  file  listed  here  contains  the  defined  constants  used  through  the  inter¬ 
face  routi ne  s . 


1 

2 

3 

4 

5 

6 
7 


vgde  f . h 


/  ifc  3fj  ^  5fc  *  Ot  a :  if:  #  *  #  £  *  *  ^  >;:  %  at  Ot  at  W-  #  *  V'  at  *'  if:  if:  a:  *  *  *  *  ¥  £  *  if:  if :  $:  *  *  if:  if :  if:  *  if:  ^  *  *  >■;  *  :#:  *  *  if :  *  * 

*  NOTE:  beware  of  the  relation  that  exists  between  groups  * 

3S  of  defi  nes  >l: 

^  if:  if:  *  if:  5(c  sfc  ^  if:  #  if:  >fc  sfc  ^  #  if:  if :  ^  *  *  Me  if;  s :  %  *  *  *:  ^  *  5?cf:  XXXXXXX  at  if:  if:  *  if:  if:  if:  if:  * «  « if  c  #  at  at  at  at  at  at  Ot  if:  at  *  *  ******  H:  /£3 


8 

~de  f i ne 

NELL  10 

// 

ma x  man  of  e  1  e  me  n  t  s  pe \ 

9 

^def  i ne 

EL 1  STS 1Z  70 

// 

size  of  element  list  hi 

10 

// 

This  is  equal  to  NELE  : 

1  1 

>*de  f  i  ne 

VC0BJSIZ  89 

// 

size  of  iso r k  buffer; 

12 

// 

must  be  19+ELISTSIZ 

13 

14 

*'d  e  f  i  ne 

N0BJ  10 

// 

max  nun  of  objects  per 

15 

~de  f  ine 

0L1STS1Z  33 

// 

object  buffer  size.  Tj 

16 

// 

equal  to  ( N0BJ  +  1)  J 

17 

18 

^<le  f  1  ne 

NSTACK  6 

// 

size  of  subroutine  sta< 

19 

20 
O  1 

•^de  f  i  ne 

NKGUE  6 

// 

size  of  keyboard  char  « 

JL  1 
22 

23 

24 

//  The 

folio  wing  are 

the  read /  wr  i 

te  defines  for  1/0 

25 

26 

^de  f i ne 

C MB- READ  1 

// 

read  vg  commands 

27 

«^dc  f  1  ne 

CM!) -WRITE  2 

// 

wr  i  t  e  vg  c o  miua lids 

28 

**de  fine 

D ISP-READ  3 

// 

read  d  isplny 

29 

~ de  f i ne 

D ISP- WRITE  4 

// 

wr  ite  to  display 

30 

*'de  f  i  ne 

CTRL-READ  5 

// 

read  vg*  contro  1  ler 

31 

#*de  f  i  ne 

CTPvL— WRITE  6 

// 

write  vg  controller 

32 

*de  f 1 ne 

F NSW— READ  7 

// 

read  function  switches 

33 

# d  e  f ine 

F NSV_ WRITE  8 

// 

unused 

34 

~ de fine 

DIAL-READ  9 

// 

read  dial  positions 

35 

«^de  f  i  ne 

DIAL- WRITE  10 

// 

u  niised 

36 

^de f i ne 

CNVT-READ  1 1 

// 

get  user  base  address 

37 

-de f i ue 

KYBD- WRITE  12 

// 

unused 

38 

39 

40 

41 

-^de  fine 

ROT  0 

// 

rotation  mnlirx 

42 

^de  f  i  lie 

CSR  1 

// 

coordinate  scale 

43 

^de f 1 ne 

DXYR  2 

// 

X*Y*Z  coordinates 

44 

^'de  f  i  lie 

1  OR  3 

// 

intensity  offset 

45 

^define 

isn  4 

// 

i u  tens  t  y  scale 

46 

*d  e  f  i  ne 

PS  11  5 

// 

pic  t ure  scale 

47 

^de  f i ne 

POST  6 

// 

post  X,Y  coordinates 

48 

^de f i ne 

MPH  8 

// 

1  igh t  pe  n  ha  1  t 

49 

■^de  f  i  ne 

MDB  9 

// 

display  bl ink 

50 

•^de  f  i  ne 

MEP  13 

// 

enable  light  pen  inter] 

51 

^de f i ne 

PIP  5 

// 

light  pen  interrupt 

52 

^de f i ne 

SP1  0 

// 

light  pen  sense  switch 

53 

^de  fine 

PIK  3 

// 

keyboard  interrupt 

54 

^de f i ne 

PIS  2 

// 

manual  interrupt 

55 

56 

*de  f i ne 

CLEAR  0 

// 

clear  flag 

57 

^de f i ne 

SET  1 

// 

set  f  1  ag 

58 

■^de  fine 

PIC  0 

// 

Picture  t  ype. 

59 

^de f i ne 

OBJ  1 

// 

object  type 

60 

^de f i ne 

ELE  2 

// 

c  1  eiue  n  t  t  ype 
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APPENDIX  D 
DEVICE  DRIVED 


Dcscr  i  bed 
ope  rat i ng 
a  nd  t  lie 

t a ined  i n 


here  is  the  system  device  driver  maintained  as  part  of  the 
system.  The  interrupt  service  routines  for  the  vector  general 
service  routines  for  the  open( )  and  closet)  system  calls  are  cou¬ 
th  is  rout ine . 


1 

2 

^inc 1 ude 

" . . /par am . h " 

3 

#  i  lie  1  lide 

" . ./conf.h" 

4 

^inc 1 ude 

"  .  .  /user  .  li“ 

5 

^ i nc 1 ude 

11  .  .  /buf  .  h " 

6 

# i nc lude 

11  .  ./pro 

>c.h" 

7 

*  1  nc  1  ud  e 

"  .  . /seg.h" 

8 

o 

# i nc 1 ude 

!l .  .  /s ystra.  h  " 

V 

10 

^def i no 

VG 

0 

// 

minor  device  0 

1  1 

^de f i no 

VCD ISP 

1 

// 

minor  device  1 

1 2 

^define 

VGCNTUL 

o 

// 

minor  device  2 

13 

^de  f i ne 

YCFNSV 

3 

// 

minor  device  3 

14 

- de  f i ne 

VGD i AL 

4 

// 

minor  device  4 

15 

*de f i nc 

VGCGNVT 

5 

// 

minor  device  5 

16 

^d  e  f  i  ne 

CLOSE 

0 

// 

restrict  access  flag 

17 

~ dc  f  i  ne 

OPEN 

1 

// 

permit  access  flag 

18 

~ do  fine 

VGADDD 

0167770 

// 

PDP-11  address  of 

VG 

19 

^de  f i ne 

SARO 

0 

// 

VG  re  g  command 

20 

**de  f  i  ne 

sari 

1 

// 

VG  rog  command 

21 

^de  f i ne 

SAR52 

064 

// 

VG  reg  command 

22 

~  de  f i ne 

SAR70 

0106 

// 

VG  reg  command 

23 

^de  f  i  nc 

AKC 

040000 

// 

aek.  frame  clock 

interrupt 

24 

^de  fine 

SCL 

01000 

// 

stop  &  clear  disp 

contro 1 ler 

25 

** d  e  f  i  tie 

AKVTCSD 

0176600 

// 

ack  all  inlerpt  Q 

reset  disp 

26 

•*dc  f  i nc 

BUSY 

1 

27 

- de  f ine 

IDLE 

0 

28 

29  //  four  I/O  c ha nuels  in  the  PDP-11 

30 

31  struct  C 


32 

i  n  t 

ddo  ; 

// 

direct  data  output 

33 

hit 

piojr; 

// 

extended  prog  I/O 

34 

hit 

ma  ; 

// 

me  mo  r y  address 

35 

in  t 

p  i  o  ; 

// 

prog  1/0 

36  )  ; 

37 

38  struct  buf  rvgbuf ; 

39 

40 


41 

c  liar 

vglk  CO); 

// 

minor  device  0 

lock 

42 

c  liar 

d isplk  (0) ; 

// 

minor  device  1 

lock 

43 

c  liar 

ctrllk  C03; 

// 

minor  device  2 

lock 

44 

c  liar 

f  ns  wl  k  C  0  )  ; 

// 

minor  device  3 

lock 

45 

c  lia  r 

dial lk  C03; 

// 

minor  device  4 

lock 

46 

c  ha  r 

keybdlk  CO.); 

// 

minor  device  5 

lock 

47 

c  liar 

vg lock  CO); 

// 

VG  system  lock 

48 

char 

d  isp  1  ay ; 

// 

display  act ivc 

flag 

49 

char 

esc  CO); 

// 

ASCII  escape  flag 

50 

i  li  t 

vgbuf I  803  ; 

// 

VG  register  buffer 

5  1 

i  li  t 

c  loekent ; 

// 

frame  clock  count 

52 

int 

c  1  o  c  kr  e  f  C  3  )  ; 

// 

frame  clock  ref 

c  o  un  t 

53 

i  n  t 

base  ; 

// 

proc  base  address 

54 

int 

b  a  d  d  r  1  ; 

// 

display  base  address 

55 

int 

b  a  d  d  r  x ; 

// 

extended  memory 

bl  ts 

56 

i  nt 

i  ; 

57 

int 

vga  d  d  r ; 

// 

buffer  address 

58 

int 

vgcore  ; 

// 

rea  1  core  address 

59 

int 

tfvgproc ; 

// 

po  Intel'  to  real 

t  i  me 

process 
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60 
6  1 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 
109 
1  10 
1  1  1 
1  12 
1  13 
1  14 
1  15 
1  16 

1  1 7  i  f 
1  18 
1  19 

120  // 
121  // 
122  // 

123  // 

124  // 

125  // 

126 

127 

128 
129 
130} 

131 

132 

133 

134 


vgopen( dev, flag)  C 

switch  (dcv.d^mjnor)  C 
case  VG :  ( 

If  (v£ll;.  ==  OPEN)  C 
u . u_c  r  r  or  =  E 1 0 ; 
ret  urn ; 

} 

vg 1 k  =  QFEN; 
break; 

} 

case  YCDISP:  { 


//  channel  for  virtual  to  real 
//  address  conversion 


if 


OPEN)  C 
=  E  1 0 ; 


//  channel  for  display  lists 


case 


//  channel  for  driver  control 


//  channel  to  obtain  function 
//  swi  t  c lie s 


// 

// 


channel  to  obtain  dial 
pos i t Ions 


(displk  == 
u . u.error 
re  t  urn ; 

} 

ctisplk  =  OPEN; 
break; 

} 

VGCNTRL:  C 

if  (etr Ilk  ==  OPEN)  C 
u.iucrror  =  E10; 
re  t  urn ; 

} 

Ctrl  Ik  =  OPEN; 
break; 

} 

case  VCFNSW:  C 

if  (fnswlk  ==  OPEN)  C 
u. u.error  =  EI0; 
ret  urn ; 

} 

fnswlk  =  OPEN; 
break; 

} 

case  VGD1AL:  1 

if  (dial lk  ==  OPEN)  C 
u. u— error  =  EI0; 
ret  ui*  li ; 

} 

diallk  =  OPEN; 
break; 

} 

case  VGC0NVT:  C 

if  (keybdlk  ==  OPEN)  C 
u.u— error  =  EIO; 
re  l ur n ; 

} 

keybdlk  =  OPEN; 
break; 

} 

default:  ( 

u.u— error  -  EIO; 
re t  urn ; 

} 

} 

(displk  88  ctrllk  88  fnswlk  88  diallk  88  keybdlk  88  vglk) 

C 

vgproc  =  u.n-procp; 
if  (sr  t  iine(O)  !=  0) 

C 

vgc lose ( ) ; 
u.u— error  =  EACCES; 
r  e turn; 

} 

VGADDR- >  p i o  =  SGLIAKC; 
vglock  =  OPEN; 
display  =  IDLE; 

} 


// 

// 


channel  for  real  to  virtual 
address  conversion 


//  make  process  real  time 


// 

// 


clear  8  reset  VG 
e na b  1  e  VG  s ys  tem 


//  The  Vector  General  Is  a  dedicated  device.  Therefore, 
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135  //  If  one  minor  device  is  closed  access  to  all  minor  devices 


136 

//  Is  restricted* 

137 

130 

vgc lose(dev)  C 

139 

vSlk  =  CLOSE; 

140 

Vfrlock  =  CLOSE; 

141 

d i s p 1 L  -  CLOSE ; 

142 

c  t  r 1 lk  -  CLOSE; 

143 

fnswlk  =  CLOSE; 

144 

dial lk  =  CLOSE; 

145 

keybei  lk  =  CLOSE; 

146 

VGADDR->  p  io  =  SCL: 

// 

clear  3  reset  VG 

147 

no  nr  t  i  ire  (  )  ; 

// 

make  process  non  real  time 

140 

} 

149 

150 

15  1 

152 

153 

154 

155 

vg-s  tra  tegy( a bp) 

156 

struct  buf  tfabp;  ( 

157 

register  struct  buf  #  b  p ; 

158 

159 

b  p  =  a  b  p  ; 

160 

vgcore  =  bp->b_addr; 

// 

save  real  address  of  buf 

16  1 

ifCdisplay  -  =  IDLE) 

162 

C 

163 

base  r  vgproc-) p_ addr ; 

// 

save  base  add r ess  for  real 

164 

// 

to  virtual  address  conversion 

165 

166 

swi  t  c  Ii(  b p - >  b _nne  tn) 

// 

set  extended  memory  bits  for  YG 

167 

C 

168 

case  00; 

// 

0-32k  address  block 

169 

C 

170 

baddrx  -  0; 

171 

break; 

172 

} 

173 

case  0 1 : 

// 

32~64k  address  block 

174 

C 

175 

baddrx  =  C24; 

176 

break; 

177 

} 

170 

case  10*. 

// 

64~96k  address  block 

179 

C 

180 

baddrx  =  050; 

101 

break ; 

102 

) 

103 

case  1  1  * 

// 

96-l28k  address  block 

184 

C 

105 

baddrx  =  074; 

106 

break? 

107 

3 

1G8 

) 

189 

) 

190 

u.u_count  =  0;  // 

tna  ke 

sys  believe  1/0  complete 

191 

i o  d  o  nc  (bp)  ; 

192 

3 

193 

194 

195 

196 

197 

198 

199 

vgwr i te(dev,  f  lag)  C 

200 

if  (  vglock  ==  CLOSE)  ( 

201 

u,u.error  -  EBAJOF ; 

202 

retu r  n ; 

203 

} 

204 

switch  ( de v. d_winor )  C 

205 

case  VGDISP:  ( 

// 

send  display  list  to  VG 

206  phys io ( vgs tra tegy, Orvgbuf , dev, B—VRITE) ; 

207  baddrl  -  vgcore : 

200  if(dlspiay  - -  IDLE)  C 

209  display  =  BUSY; 
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210 

211 

212 

213 

214 

215 

216 
217 
2  1 B 
2  i  9 
220 
22  1 
009 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 


vgs t  a  r  t (  )  ; 

} 

re  turn; 

) 

case  VG :  (  //  sa ve  real  a 4 dress 

phvs i o ( vgs  t  ra tegy , firvgbuf , dev, B-WKITE)  ; 
vgaddr  =  vgcore; 
ret  ur n ; 

) 

case  VGCNTRL:  C  //  set  user  refresh  rale 

c 1 o  c  kr ef  =  c pa  ss( )  ; 
ret  ur  n ; 

) 

default:  ( 

u,u.error  =  E10; 

re  t urn ; 

) 


239 

vgpassc ( a bp) 

// 

pass  data  from  here  to  user 

240 

iut  abp ; 

// 

NOTE:  user  is  respo ns i b 1 e 

24  1 

C 

// 

for  correct  byte  count 

242 

char  #bp; 

243 

bp  =  abp; 

244 

whl 1 e ( passe ( *bp)  >=  0)  bp++ ; 

245 

) 

246 

247 

248 

249 

250 

25  1 

252 

253 

254 

255 

256 

257 

258 

259 

260 

26  1 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
201 
282 

283 

284 


//  rend  VG  regis tors 


vgreadCdev, f lag)  f 

if  (vglock  ==  CLOSE)  C 
n.U-error  =  EDADF ; 
re  turn; 

) 

switch  ( dev, d— minor )  1 

case  VGCNTRL:  C 

VGADDR- >  p i o  =  SARD; 
for  (  1  =  0;  1<80;  1++)  vgbufLil  =  VGADDR- >  p io ; 
break; 

) 

case  VGFNSV  :  C  //  read  VG  function  switch  registers 

VGADDR- >  p i o  =  SARO ; 
vgbuf [ 03  =  VGADDR->pio; 

VGADDR- >  p lo  =  SAR52; 
vgbuf [52]  =  VGADDR- >  p  i  o  ; 
break; 

) 

case  VGDIAL:  C  //  read  VG  dial  post  Ions 

VGADDR- >  p i o  =  SAR70 ; 
for  ( 1=70; i < 80 ; i++) 

( 

if  <i<=  100);  //  waste  t irae 

vgbn f [ i ]  =  VGADDR- > p lo ; 

) 

b  r  e  a  k ; 

) 

case  VGDISP:  [  //  read  last  update  of  VG  registers 


break; 

) 

case  VGCONVT:  C 

vgpassc(fibase) ; 
re  turn; 


//  send  real  basea  address  to  user 
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//  send  real  address  lo  user 


205 

236 

287 

203 

289 

290 

29  1 

292 

293 

294 

295 

296 

297 

298 

299 

300 

30  1 

302 

303 

304 

305 

306 

307 

308 

309 

310 

31  1 
3  12 


case  VG:  C 

vgpassc(Svgaddr) ; 
ret  ur  n ; 

3 

default:  C 

n.u_error  =  E10; 
return; 

) 

vgpas sc ( vgbuf  )  ; 

re  t  urn; 

3 


vgs t  a  r  t ( )  C 

c lockcnt  =  0; 

VGADDR—> p iox  -  baddrx; 
V GADD  R-  >  ina  =  b  a  d  d  r  1  ; 
VGAL>DR->  p  io  =  AKVCSD; 

) 


//  send  VG  registers  to  user 


//  set  VG  extended  neniory  bits 
//  send  VG  display  address 
S /  start  VG  operation 


313  //  VG  frame  clock  interrupt  handler.  When  enabled  frame 

314  //  clock  Interrupts  occur  everv  8.33  msec. 

315 

316  vgc  lock(  )  C 

317  if<vg*lock  =  =  CLOSE)  return; 

313  VGADDR->plo  =  AKC ;  //  nke  frame  clock  intrp 

319  if  ( +  +  c  lockcnt  ==  clockref)  C  /V  refresh  the  display 

320  VGADD R->pio  =  SGL ; 

32 1  vgs t  ar  t ( )  ; 

322  3 

323  3 

324 

325 

326 

327 

328 

329  //  The  current  VG  interface  software  makes  no  use  of  the 

330  //  P-bit.  However,  the  P-bit  interrupt  handler  is  required 

331  z'/’  for  system  compatibility. 

332 


333  vgpb i t ( )  C 

334  3 

335 

336 

337 

338 

339 

340  //  VG  device  interrupt  handler.  Called  whenever 

341  //  the  VG  keyboard  is  depressed,  the  manual  interrupt  switch 

342  //  is  depressed,  or  a  light  pen  interrupt  is  detected  by 

343  //  the  VG. 

344 

345  vgde v( ) 

346  C 

347  if  ( vglock  ==  CLOSE)  return; 

348  VGADDR->pio  =  SARD;  //  get  VG  interrupt  state 

349  for(  1  =  0;  i<  11;  i ++ )  vgbufCH  =  VGADRR->  p io ; 

350  VGADDIl->pio  =  SAR52 ; 

35  1  vgbuf  1  523  =  VGADDR-> p io ; 

352  If (  ! esc ) 

353  C 

354  if ( vgbuf C438010  83  vgbufCl]  ==  012000) 

355  C 

356  |>s  igna  1  (  vgproc  ,  2)  ;  //  terminate  the  process 

357  go  to  akc ; 

353  ) 

359  if ( vgbnfC4]8010  88  vgbufll]  ==  015400) 
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360 

C 

36  1 

esc 

362 

go  t 

363 

) 

364 

ps igna 1 

365 

) 

366 

else  esc — ; 

367  akc : 

368 

VG/0)D?c->pio 

369 

++  ; 

o  akc  ; 

(  vgproc *  15)  ; 

=  vgi>uf  C  4)  <<  3; 


//  send  the  user 


//  nckowlodge 


the  interrupt 


in t err up t 
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APPENDIX  E 
INTERFACE  ROUTINES 


Contained  here  are  the  Interface  routines  grouped  by  flies.  The  files  are 
ill  alphabetical  order. 

vge  1  e  .  c 


1 

# i ne 1 ude 

"vgde f  .  h" 

o 

#  i  lie  1  nde 

"  vgg  lob  .  li" 

3 

4 

5 

# i ne 1 ude 

"  vgo  b  J  .  li  “ 

6 

7 

8 

/X 

X 

9 

X. 

Add 

an  element  to  an  objeet.  Pos 

s  i  b  1  e 

return  codes  are; 

X 

10 

* 

-1  Illegal  object  number 

X 

1  1 

X 

-2  no rex  1st  ant  objeet 

X 

12 

* 

~3  object  c a nno  t  ace ess 

more  e 

1 e  me nts 

X 

13 

* 

-4  element  number  is  out 

of  range 

X 

14 

X. 

“5  user  display  buffer  is  less 

tlian  6  bytes 

X 

15 

X 

~6  user  buffer  address  is  zero 

X 

16 

X 

normal  return  is  the  element 

mi  lube  r 

X 

17 

X 

X/ 

18 

19 

vgadde  1  e  (  a b p  ,  mnu ,  s  ize  ) 

20 

in  t 

abp  ; 

// 

user  element  buffe 

r 

21 

i  n  t 

num ; 

// 

objeet  number 

22 

i  n  t 

size; 

// 

num  bytes  in  user 

b  u  f  f  e 

r 

23 

C 

24 

int 

i  *  J  5 

25 

i  li  t 

&bp ; 

// 

buf fer  po inter 

26 

27 

if((bp=abp)  ==  0)  re  turn (-6); 

// 

e he c k  for  b u f  addr 

of  0 

23 

i  f  (  s 

i  zeSO  1  II  (s  ize  =  >>  IX  =3)  ret  urn(  -5  ) 

;  //  elieck  byte 

eoun  t 

29 

if(num<=:0)  re1urn(“l)  ;  //  cheek  object  number 

30 

/X 

X 

3  1 

X 

Scare h  all  the  object  structures 

for  the  objeet. 

X 

32 

X 

X/ 

33 

for< 

i  =  0 ;  1 <  NOBJ ;  1 +  + )  1 f ( vgo  b j [  i ]  . vgnum  = 

=  num)  break; 

34 

if  (  i 

>=  NOBJ)  return(-2)s 

//  object  doesn’t 

exist 

35 

/X 

X 

36 

X 

Find 

the  first  e mp ty  e lement  loeat  Ion  In  the  object 

X 

37 

X 

s t  rue  t  ure . 

X 

38 

X 

X/ 

39 

for 

( j= 1 ; J  <  EL I STS  I Z ; j  =+  7) 

40 

if  ( vgo  b  J [  i ]  . vge  1  e  [  J  3 

=  =  0) 

break; 

41 

if  (  j 

=  =  EL  I  STS  I Z)  re  turn(-3)  ; 

//  no  empty  elements 

42 

43 

i  f  (  (  +  +  vge  lenum)  >  23 1>)  re  turn(  -  4)  ; 

// 

no  empty  elements 

44 

/ X 

X 

45 

X 

Fi  1  1 

t  he  last  3  words  of  the  e 1 e  me  n  t  b  n  f  f  e  r . 

X 

46 

X 

X/ 

47 

x{  bp 

+  (size-1))  =  044016; 

ss 

1  d  MAR  from  stack 

i  ns  t 

48 

*<  l>p 

+(size-2) )  =  024; 

// 

term  e  ha r  mode 

49 

X  (  b  p 

+(slze— 3))  =  015; 

// 

term  all  modes  exept  eliar 

50 

/X 

X 

5  1 

X 

Fill 

the  element  words  associated 

wl  til 

t  he  object . 

X 

52 

X 

X/ 

53 

vgobj C  I ]  . vge letj+6]  =  0440  16 ; 

54 

vgobj t  i ] . vge le t J+51  =  vgcntr l(bp) 

101  ; 

55 

vgob J t  i 3 . vge le t J  +  41  =  040016; 

56 

vgo b  j til. vge letj  +  31  =  074216; 

57 

vgo b j C i ] . vge le C J +23  =  046201; 

58 

vgo b j [  i ]  . vge 1  e  C  J  +  1 3  -  040005; 

57 


59 

vgo  b j [  1  ]  . vge 1 e [ J ] 

( vge 1 e uum<  <  8)  101; 

60 

vgo  b  j [  1 J  . vge 1 e [ J  —  1 ]  = 

040022; 

61 

re  t  urn( vge 1 enim)  ; 

62 

) 

63 

64 

65 

66 

67 

63 

09 

70 

71 

72 

73 

* 

74 

Delete  the  element  by 

searching  all  object  structures 

* 

75 

* 

for  the  given  element 

.  Possible  return  codes  are: 

* 

76 

& 

0  nor  rm 

1  re  turn 

77 

* 

~ 2  o  lenient  does  no  t  exist 

* 

78 

* 

"4  element  number  is  out  of  range 

79 

* 

80 

81 

vgde 1 e le ( num) 

82 

int  nura; 

//  element  number 

83 

C 

84 

5  u  t  i  ,  J  ; 

85 

86 

i  f  (  nurn<  =  0  1  1  mini)  256) 

re  turn(-4) ;  //  check  element  num 

87 

* 

83 

* 

Sequentially  search  a 

11  object  structures  and  elements  for  the 

* 

09 

X 

object  containing  the 

e  1  e  me  n  t  . 

* 

90 

X 

%/ 

91  for(i  =  0;i<  KOBJ ;  i+  +  ) 

92  C 


93  f  o  r  (  j  r 1 ;J<  EL I STS  I Z ;  j  ~  +  7) 

94  C 

95  i f ( v^obj M3, vge 1  e  [  J  ]  = 

96  If  (  vgobj  [  i  ]  .  vge  le  T  J  3 

97  ) 

9B  ) 

99  ret  urn( -2)  ; 

100  /* 


0)  break; 

(  (  uutu<  <  8)  101))  goto  found; 


//  element  doesn’t  exist 

* 


101 

102 

103 

104 

105 

106 
107 
103 
109 
1  10 
1  1  1 
1  12 
1  13 
1  14 
1  15 
1  16 
1  17 
1  13 
1  19 


^  Delete  the  element  and  compact  the  remaining  elements. 
* 


found : 

vlii  le (  vgobj  C  i  1  .  vge  le  [j+7J  !=  0) 

C 


vgo  b  J  [  1  ]  .  vge  1  e  [  J  +  6  ] 
vgo  b  j  [  i  ]  .  vge  1  e  [  j-S-53 
vgo h  J  [  i  ]  .  vge  le  [  J+2] 
vgob J [  i  ]  . vge le [ J ] 

J  =+  7; 

} 


vgo  b  j  r  11  .  vge  1  e  [  j  +  1 3  ]  ; 
vgobj [ i J . vge letj+123 ; 
vgo  b  j  [  i  ]  .  vge  1  e  [  J  -f-  9  1  ; 
vgobj [  i ]  . vge le [ J  +7 ]  ; 


vgo  b  j  T  i ] . vge 1  e  [  J  -  1  ]  =  044016; 
vgo  b  J  [  i  1  .  vge  1  e  t  J  1  =  0 ; 

return(O) ; 

) 


* 

*/ 


120 


121 
1 22 

123 

124 


125 


126 

/* 

* 

127 

% 

Ho  d  i  f  y  t  he 

light  pen  and 

display  blink  fields  of  the  HGR 

* 

128 

* 

register  of 

e  lewent  .  Po 

ssible  return  codes  are: 

* 

129 

0  normal  return 

% 

130 

$ 

-2  e 1 erne n  t 

doesn ’ t  exist 

* 

131 

^4  e  letneni 

out  of  range 

* 

132 

* 

%/ 

133 


5B 


134 

135 

vge 

1  e  loo  d  (  n  uni ,  field, act  Ion) 

136 

Int  iiuiu;  //  element 

nuinbe  r 

137 

138 

in t  field?  //  0400 

1  i ght  pen  ha  1 t 

139 

//  0 i 000 

display  blink 

140 

//  020000 

light  pen  hit  detect 

141 

142 

char  action;  //  0  -  clear 

143 

//  I  —  set 

144 

c 

145 

int  i  ♦ J  ; 

146 

147 

ifCuuin<=0  If  mira>NELE)  re  tur  u( -4)  ;  //  check  element 

148 

/X 

149 

X 

Find  tlie  object  containing  the  e 

lenient  . 

150 

X 

15  1 

152 

for  (  i  =  0  ;  1CN0DJ;  i++> 

153 

C 

154 

for  (  J  =  1  ;  j  <  EL I SI'S  I Z ;  J  =+  7) 

155 

C 

156 

If  (  vgob  J [  1 ]  . vge 1 e  T  J ]  =  = 

0)  break; 

137 

if  (  vgo  b J  C  i  1  .  vge 1  e  T  J  3  =  = 

(  (  nutu<  <  8)  101))  goto 

133 

159 

) 

160 

re  t  urn( -2)  ; 

//  element  doesn’ 

16  1 

162 

/X 

163 

X 

Modify  the  light  pen  and  blink  control. 

164 

X 

165 

found  1 : 

166 

ifCactioli  -  =  SET) 

167 

vgo  b j [  i J  . vge 1 e  C  j  +2 ]  =1  field; 

168 

else  if( action  =-  CLEAR) 

169 

vgobj  [  1 3  .  vge  le  [  j+23  =8  ~(  f  le 

id loioooeo) ; 

170 

re  t urn( 0 )  ; 

171 

} 

* 

* 

*/ 


X 


XX 


vg iul t .c 


1 

2 

3 

4 

5 

6 

7 

8 


^include  "vgdef.h'* 
^include  "vgglob.li 
^include  "vgsys.h" 
*  include  “vgobj.h" 


extern 

extern 


vgcrashC  ) 
vffdpi v( ) ; 


n 


9 


10 

1 1 

XX 

X 

12 

X 

The  vector  general 

Initialization  routine  defines  all 

X 

13 

X 

system  instructions 

a  nd  1  i  nks  all  s  ys  tern  1> u  f  f  e  r  s  . 

X 

14 

X 

X 

15 

X 

If  the  process  can' 

t  become  real-time  or  if  all  minor 

X 

16 

X 

devices  are  unable 

to  be  opened  t  lie  process  is  terminated. 

X 

17 

X 

XX 

10 

19 

20 

vg 1 n i t ( ) 

21 

C 

22 

23 

XX 

X 

24  X  Open  nil  vector  general  minor  devices.  X 

25  X  X/ 


26 

27  if  ( vgopent )  !=  0)  vgcrash(  )  ; 

28 


59 


29 

* 

GO 

* 

Make  the  process  rea l-llmc.  This  call 

Is  placed  he r e 

X 

31 

X 

only  until  the  system  r  t  i  n:c  (  )  call 

from  the  driver  level 

X 

32 

X 

can  he  debugged.  It  should  be  a  ca 

11  at  t  tic  driver  level 

* 

33 

* 

when  all  minor  devices  are  opened. 

34 

X 

*/ 

35 

36 

If (r tlrae(O)  !=  0) 

37 

( 

33 

perro  r  (  nT  t  Ime  error1'); 

39 

vgcrashC ) ; 

40 

) 

41 

42 

s Igna 1(2, vgcrash)  ; 

43 

s  i  gna  1(15,  vgd  p  i  v)  ; 

44 

45 

vgc lock( 40) ;  // 

set 

default  refresh  rate 

46 

47 

vgs  _mn  r  -  vgo  1  n  i  t  (  )  !  0  1  ; 

// 

get  address  of  objlist 

48 

vgs-stk  =  vgcnlrK  vgstack)  101: 

// 

stack  ad dr  in  MAR 

for  ma t 

49 

vgstackt  01  "  vgcix ir  1  (  Svgrid  le)  1  01  ; 

// 

stack  underflow  protection 

50 

vg idle  =  030 C00 ; 

// 

ha  It  instruction 

5  1 

vg  1  p  f  1  a  g  =  0  ; 

// 

light  pen  interrupt 

flag 

52 

vglpsflg  =  0; 

// 

1 i gh  t  pe  n  sense  switch  flag 

53 

vgkflng  =  0; 

// 

keyboard  flag 

54 

vgkptr  -  0; 

// 

Keyboard  queue  pointer 

55 

vgkqnefl  "  0; 

// 

keyboard  input  flag 

56 

r  e  t  u  r  n  ; 

57 

) 

58 

59 

60 

6  1 

62 

63 

/* 

X 

64 

X 

fill  buffer  with  the  post  X-coord  irate 

a  nd  t  he  po  s  t 

X 

65 

* 

Y-coord inn  te  values.  The  values  that  px  and  py  may  assume 

* 

66 

X 

are  0177760  ( -2048)  through  077760 

(2047) . 

x 

67 

X 

*/ 

68 

69 

vgpo 

is  t  (  px ,  py) 

70 

int  px; 

// 

post  X“coord  hiate 

7  1 

int  py; 

// 

post  Y-ooord ina te 

72 

( 

73 

vgsvpdxr  =  px  <<  4; 

74 

vgs_pdyr  =  py  <<  4; 

75 

} 

7 

77 

78 

79 

80 

81 

/* 

* 

82 

* 

Set /Cl  ear  the  function  switch  lamps 

.  Ea  dibit  set  in  t  he 

* 

83 

X 

input  buffer  will  affect  one  lamp. 

* 

84 

Ji‘c 

X/ 

85 

86 

vglamps ( a bp) 

87 

int  a bp;  //  two  word  buffer  pointer 

88 

C 

89 

5  n  t  X  b  p  ; 

90 

lf(abp==0)  return(-6) ; 

9  1 

bp  -  a b p  ; 

92 

vgs- f.s  1  =  &bp  8  0177400; 

93 

vg? _ f s 2  -  ( ( #bp  8  0377 )  ( (  8)101; 

94 

vgs_fs3  “  *^(  +  +  bp)  8  0177400; 

95 

vgs- fs4  r  (  (  ^bp  8  0377)  < ^  3) 101; 

96 

} 

97 

98 

99 

100 

101 

102 

/* 

X 

103 

X 

Modify  the  picture  parameters. 

X 

60 


104  X  The  va  1  ues  field  can  itssupe  are  ! 

105  * 

106 

107 

1 0 8  vgp ioraod(  field, a c t Ion) 


* 

X/ 


109 

int 

field; 

// 

0400 

1 ighl  pen 

ha  1  t 

1  iO 

// 

01000 

display  hi 

i  iik 

1  1  1 

1 12 

// 

020000 

1  ight  pen 

hit  detect 

1  13 

int 

ac  t ion ; 

// 

0  clear 

1  14 

// 

i  set 

1  15 
116 
1  17 
1  18 
1  19 
120 
121 
1 22 

123 

124 

125 

126 

127  /X 

128  X 

129  X 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140  /X 

141  X 

142  * 

143 

144 

145 


i  n  t  i  ; 

1  =  0; 

vrhi  le  (  i<  NOBJ)  vgobjniocH  vgohjl  1  +  +]  .  v'jrnm,  f  ie  Id  ,ac  t  Ion)  ; 


Start  the  display 


vgp : c t  ure ( ) 

C 

vgpioCSv-s^ldfs I , D1SP_ WRITE) ; 

3 


* 


/  /  start  display 


Modify  the  picture  scale.  The  range  of  values  are  0  -  1. 


X 

X 

X/ 


vgps c  a  1 (  va  1 ) 

doub  le  va  1  ; 

146  C 

147  lilt  temp; 

148  temp  =  va 1  *  2047; 

149  vgs-psr  =  (  temp< < 4)  I  0 1 ; 

150  return(O) { 

151  3 


//  pic  ture  scale  value 
//  temp  integer  value 


vg intr.e 


1  ^inc  hide  "vgdef.h" 

2  -^include  "vggrlob.h" 


3 

4 

^include  "vgreg.h" 

5 

6 

/X 

X 

7 

X 

when  a  light  pen  in 

terrupt ,  a 

s e  ns  e  switch  inter 

rupt,  n 

X 

0 

X 

he ybo ard  inter r up  t , 

or  a  rnanua 

1  interrupt  occurs 

t  he 

X 

9 

X 

VC  system  interrupt 

driver  passes  the  interrupt 

to  the 

X 

10 

X 

user  via  this  routine. 

X 

1  i 

X 

X 

12 

NOTE:  interrupts 

are  passed 

via  s igna  1  15 

X 

13 

X 

xy 

14 

15 

16 

17 

18 


vgdp i v( ) 

C 

int  i: 


61 


19 

20 
21 


s  1  gna  1  (  1  5  t  vgdp  i  v)  ; 

vgp  io  (  s  ,  D  ISP_READ)  ; 


//  get  interrupt  state  from  VC 


22 

for  (  i  -  0  ;  1  <  7  ;  i++) 

i f ( ( vg_p ir>>  i ) 80  1 ) 

s  wi  tch(  i  ) 

23 

C 

24 

25 

case  PIP: 

// 

light  pen  interrupt 

26 

27 

case  SP 1 : 

// 

light  pen  sense  switch 

28 

C 

// 

in  t err up  f 

29 

vgl pi  v( ) ; 

30 

break; 

31 

3 

32 

33 

34 

case  PIK: 

( 

// 

keyboard  interrupt 

35 

vgkpiv(  )  ; 

36 

b  r  c  a  k ; 

37 

3 

38 

39 

case  PIS: 

// 

manual  interrupt 

40 

C 

41 

vgmp i v( ) ; 

42 

break; 

43 

3 

44 

3 

45 

ret  urn ; 

46 

47 

48 

49 

50 
5  1 


yz 

53 

54 

55 

56 

57 
50 

59 

60 


73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 
9  1 

92 

93 


/* 

X 

X 

X 

X 


light  pen  interrupt  handler 

store  the  resulting1  1  igkt  pen  interrupt  values  in  vglpbuf 
only  if  the  previous  interrupt  lias  been  processed  by  the 
user  . 


X 

X 

X 

X 

X/ 


vg 1 p  j  v(  ) 

C 


61 

i f  (  (  vg 1 p  f  1  a  g=  = 

0) 

83  (vg_pir301)) 

62 

C 

63 

vg 1 pbuf  C  0] 

= 

vg_p ir >  >  3 ; 

// 

mo  d  e  3  control  reg 

64 

vg 1 pbuf  t  1  ] 

= 

vg- i r ; 

// 

instruction  word  reg 

65 

vg 1 phu  f [ 21 

= 

vg*„wcr  : 

// 

word  count  reg 

66 

vg 1 pbuf [ 31 

= 

vg _ xr >  >  4 ; 

// 

X-co or d i na t  e 

67 

vg 1 pbu f  t  43 

vg_yr>  >  4 ; 

// 

Y~coo  I’d  i  u a  t  e 

68 

vg] pbuf [ 5] 

= 

vg_zi’  >  >  4  ; 

// 

Z-coord innte 

69 

vg 1 pbuf [ 6 ] 

= 

vg-peur ; 

// 

pen  resolution  byte 

70 

vglpf lag++ 

» 

71 

3 

72 

if  ( vg_p i r30 1 ) 

v 

g 1 ps  f 1 g++ ; 

/X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


Vector  General  Keyboard  Character  Pivot 

when  a  Keyboard  character  interrupt  has  occured,  this  routine 
gets  the  keyboard  character  from  the  Vector  Genera  1 
places  it  in  vgkque ,  and  increments  the  character  flag, 
vgkflag,  to  indicate  a  character  has  been  input 

NOTE:  'file  user  should  empty  the  queue  by  calling 

vgge tcar( ) . 


X 

X 

X 

X 

X 

Sb 

x 

X 

X 

X/ 


vgkp i v( )  C 

vgkf 1 ag++ ; 
i  f  (  vg*_kbr 
t 


==  010000) 


62 


94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 
109 
1  10 
1  1  1 
1  12 
113 
1  14 
1  15 
1  16 
1  17 
1  18 
1  19 
120 
121 
1 22 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 


vgkflng  =  0; 
vgkptr  =  C; 
vgkque  f  1  =  0  ; 
return; 

) 

if  (vgkptr  =  =  RK&UF,)  vgkptr  =  0; 
vgkque  I  vgki>  tr  +  +]  =  vg_ld>r; 

} 


X  Vector  General  Hanna  1  Interrupt  Pivot. 

*  when  a  manua  1  switch  interrupt  occurs,  this  routine  increments 

*  the  manual  interrupt  counter 

* 

vgrnplv!)  C 

vg-ma  nint+t; 

) 


*  kill  the  process  . 

X  called  when  a  condition  requires  process  termination 

*  i.e.  "rubout"  on  the  DATAKRD I A  terminal  or  CTRL  T 
X  on  the  vector  general  keyboard 

* 

vgcrasli(  )  C 

vgteriu(  )  ; 
ex i t  (  )  ; 

) 


* 


* 

* 

X/ 


X 

* 


X 

X 

X/ 


vgo  1>J  .  c 


1  ^Include  "vgdef .h“ 

2  #  1  nc  1  u<!  e  "  vgg  1  o  b  .  h n 

3  ^include  Mvgol>j.hH 

4 

5 

6 

7  - 


8 

/X 

X 

9 

Add 

the  object  to  the  active  display  list. 

X 

10 

X 

The 

possible  return  values  are: 

X 

1  1 

X 

0 

normal  termination 

X 

12 

X 

-1 

object  number  is  neg. , 

zero,  or  greater 

than  N0BJ 

X 

13 

X 

-2 

object  doesn’t  exist 

X 

14 

X 

-3 

object  list  is  full 

X 

15 

X 

X/ 

16 

17 

vgaddobj ( num) 

18 

int 

num; 

// 

object  mi  tribe  r 

19 

C 

20 

Int 

*addr ; 

// 

object  address 

21 

int 

Rj; 

22 

23 

i  f  (  num<  =0) 

returu("l) ;  //  check  > 

objec  t  number 

24 

lf(  V 

go  b  J  1  is 

t [ 03  >  K0BJ )  return! -3)  ; 

//  object  list 

ful  1 

25 

/X 

X 

26 

X 

Find 

the  object  structure  with  the 

desired  object  number 

X 

27 

X 

X/ 

63 


28 

20 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 


for  (  i  =  0  ;  i <  KORJ ;  i  ++  )  1  f  (  vgobj  [  i  J  .  vgnum  =  r  num)  break; 

i f (  1 >  =  KOBJ )  re  t  nr n( —2 )  ;  //  object  doesn’t  exist 


j  =  vgo b  J 1  i s  t  C  0 1  *3; 

vgobj  1  i  s t [ j+2]  =  vgcn tr 1 ( Svg id le )  I  0 1 ; 

vgo b J 1 lstCj+1]  =  040016;  //  load  MAR 

=  vgc  n  t  r  J  (  3vgobj  [  i  ]  .  vgnum)  i  0  1  ; 

//  load  HAR 
// 


vgob J 1  i  s t  C  J ] 
vgo bj llstC j-1]  =  0400 1 6 ; 
vffob j } is t C j “2]  =  G74216; 
vgobj  1  is  1  C  0]  +  +  ; 
returu(O) ; 

] 


stole  MAR  In  slack  8  mark 


50 

if: 

51 

Find  the  object,  delete  It,  and  If 

in  the  active  display  list 

% 

52 

* 

compact  the 

resulting*  active  display  list.  Possible  return 

X 

53 

* 

va 1 ues  are ! 

% 

54 

* 

0 

norma  1  return 

if: 

55 

* 

-  1 

object  number  out  of  range 

% 

56 

* 

-2 

object  doesn’t  exist 

X 

57 

* 

* / 

58 

59 

vgde lobj ( num) 

60 

int  num; 

// 

object  number 

61 

C 

62 

int  nddr ; 

// 

address  pointer 

63 

int  1 , j , k ; 

64 

65 

i f ( num<  =0) 

return(-l) ;  //  check  o 

bject  number 

66 

/X 

* 

67 

X 

Se  que  n  t  i  a  1  1 

y  search  the  object  structures  until  the  desired 

if: 

68 

if: 

object  can 

be  found . 

if: 

69 

* 

X/ 

70 

for(  i  =  0;  i<N03J;  i  +  +)  if(vgobj[  1]  .  vgmim=  =  num)  break; 

71 

if (  i >  =  R0BJ ) 

rc t  urn( -2)  ; 

//  object  doesn’t  exist 

72 

vgo  b  J  C  i  1  .  vgnuui  =  0  ; 

//  delete  the  object 

73 

/* 

X 

74 

X 

Chock  if  the  object  is  in  the  active  display  list.  If  yes 

X 

75 

X 

t  he  1 1 nk  i n 

vgobjlist  must  be  removed.  If  no  then  only  the 

X 

76 

X 

object  number  must  be  zeroed. 

X 

77 

if: 

X/ 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 


/* 

x 


ad  dr  =  vgcn  t  r  1  (  fivgob  J  [  i  ]  .  vgmim)  101; 

for  (  j=  1  ;  j< vgobj  1  is  t  [  0 1  ;  j  +  +  )  if(  vgobj  1  is  t  [  J*31  =  =addr  )  break; 

Compact  the  resulting*  display  list. 

i f ( J  <  vgo  bjlistCQ]) 

C 

vgo  b j  1  i  s  1 1  01  —  ; 

vgobj  1  Is  t [ j*31  -  vgobj  1 i s t [ vgobj  1  is t [ 0] #31  ; 

vgo  b  j  1  i  s  t  C  vgo  bj  1  isl[03*3]  r  vgc  ii  t  r  1  (  & vg  i  d  1  e  )  101; 

3 

re  t  urn( 0 )  ; 

3 


* 

* 

*/ 


* 


Find  an  unused  object  structure  and  initialize  the  structure 


64 


103 

to  nil  default  parameters. 

Possible  return  codes  are: 

* 

104 

* 

“3  all  objects  previously  defined 

* 

105 

* 

Normal  return  is  the  object 

number  assigned  to  the  new  object 

X 

106 

* 

%/ 

107 

108 

vgrako  bj  C  ) 

109 

C 

1  10 

1  u  t  1  ; 

1  1 1 

5fc 

1  12 

Find  the  first  unused  object  structure. 

1  13 

%/ 

1  14 

for  (  1  =  0;  i<K0BJ;  i  +  +  )  if(vgobj[  i] 

. vgnum5 -0 )  break; 

1  15 

if(i>=N0BJ)  re  turn (—3); 

// 

all  object  in  use 

1  16 

vgobj [  i]  ,  vguuia  =  ++v^curob  J 

» 

1  17 

vgobj [ 1] .vgior  =  077760; 

//  intensity  offset 

1  18 

vgobj  E  i  3  .  vg  isr  r  0  1; 

//  intensity  scale,  terminate 

1  19 

vgobj  C  i ] . vgcsr  =  037760; 

//  coordinate  scale 

120 

vgobj  [  i  ]  .  vgx  =  C000000; 

//  X“Coor<l  ina  to 

121 

vgo b J [ il . vgy  =  0000000; 

//  Y— c o o r d i na t e 

122 

vgo  b  J  [  i  ]  .  vgz  =  G  ; 

//  Z— coord  ilia  te 

123 

vgobj  C  i  ]  .  vgi-o  t  T  0]  =  077760; 

//  fill  rotation  matrix 

124 

vgobj [  i ]  . vgro t  C  4]  =  077760; 

125 

vgobj  Cl],  vg-ro  t  E  81  =  077761; 

//  termlna  te 

126 

re  turnC  vgobj  C  1]  .  vguinn)  ; 

127 

3 

128 

129 

130 

131 

132 

133 

J  34 

135 

136 

137 

138 

/X 

X 

139 

% 

Modify  the  object  ns  indicn 

ted 

by  tlie  input  parameter. 

X 

140 

Possible  return  codes  a re: 

X 

141 

* 

0  normal  return 

X 

142 

* 

“1  object  number  out  o 

f  range 

X 

143 

-2  object  doesn't  exist 

X 

144 

X/ 

145 

146 

vgob Jinod (  nusn,  f  ie  lds,ae  t  ion) 

147 

i  n  t  nura ; 

// 

objee  t  number 

148 

149 

lilt  fields; 

// 

0  -  rotation  ir.a  t  r 1 x 

150 

// 

1  -  coordinate  scale 

151 

// 

2  -  X,Y,Z  coordinates 

152 

// 

3  -  intensity  offset 

153 

// 

4  -  intensity  scale 

154 

// 

8  -  15  gli  t  pe  n  ha  1  t 

155 

// 

9  -  display  blink 

156 

// 

13  —  light  pen  interrupt 

157 

158 

char  act i on; 

// 

0  -  e  1  e  a  r 

159 

// 

1  -  se  t 

160 

C 

16  1 

in  t  p  t  r  ; 

// 

pointer  to  object  to  be  modified 

162 

i  n  t  ob J ; 

// 

ptr.  to  obj.  in  obj.  bnf.  list 

163 

lnt  1 , j ; 

164 

1  li  t  t  addr  ; 

// 

temp  MAR  addr  of  object 

165 

lnt  Xaddr; 

// 

address  of  an  object 

166 

e  ha r  active; 

// 

object  in  active  display  list 

167 

168 

ifCnura  <=  0)  re  turii(  -  1)  ; 

//  check  object  number 

169 

/X 

X 

170 

X 

Sequentially  search  the  object  ; 

structures  for  the  desired 

X 

171 

* 

object. 

X 

172 

X 

%/ 

173 

for( ptr=0; ptr< N0BJ ; ptr++)  i f ( vgobj f ptr ]. vgnura  "  uum)  break; 

174 

1 f ( p tr> = N0BJ)  re  turn(-2)  ; 

//  object  does  not  exist 

175 

/% 

X 

176 

* 

Cheek  the  aetive  display  list  for  the  object  to  be  modified. 

X 

177 

vO 

X/ 

65 


i7a 

179 

180 

iai 

/* 

182 

* 

183 

% 

184 

* 

183 

186 

107 

1 88 

189 

190 

19  1 

192 

193 

/* 

194 

* 

195 

* 

196 

197 

193 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

21  1 

2  12 

213 

214 


ad  dr  =  &vgo  h  j  [  p  t  r  ]  .  v^nuin ; 
tod dr  =  vgontr l(addr) IOJ ; 

for  (  obj  =  1  ; obj<  vgobj  I  is  t [ 01  ;  obj-M-)  i  f  (  vgobj  1  is  t  E  obj*3 J  =  =  taddr)  break; 

* 

Hake  a  eopy  of  the  object  and  link  the  copy  to  the  active 
display  list. 


* 


active  =  0 ; 

If  (obj  <  vgob J 1  is t C 01  ) 
i 

f or (  i  =  0 ;  i < VGOBJS 1Z;  i++)  vgvorkbuf [  3 ]  =  addr++)  ; 

taddr  =  vgo b j  1  i s  1 1  o b J *3 J  ;  //  save  MAR  acldr  of  the  org.  obj 

vgobj  1  is  t  [  obji:'3]  =  vge nl r  1  (  vgwo  rkbuf  )  I  0  1  ; 

ac  t 1 ve  +  + ;  //  set  object  active  flag 

Hake  the  modifications  to  the  ordinal  object 

f or (  1  =  0;  i<  16;  i++) 

( 

if  (  (  f  ie  lds>>  i)8Gl)  switch(i) 

t 

case  HOT: 

( 

f or( j  =  0; J<  9 ; J++)  vgobj C  pt r ]  *  vgro t  E  j ] =vgf_ro t  E  j ] <  <  4; 
vgobjEplr] . vgrotEB]  =1  01; 
break; 


* 

*/ 


//  rotation  matrix 


// 

vg f  _c  sr<<4; 


case  CSlt: 

C 

vgobj E  p  t  r  1  . vgcsr 
bieak; 

) 

ease  DXYR: 

C 

vgob J C p tr 1 . vgx  =  vgf_dxr<<4? 
vgob  J  E  p  1 1*  J  .  vgy  =  vg'f_dyr<<4; 


coordinate  scale 


//  X,Y,Z  coordinates 


215 

vgobj E  p  tr  3  . 

vgz  =  vgf_dzr<<4; 

216 

break; 

217 

) 

218 

case  10H-* 

// 

into  ns i t  y 

o  f  f  sc  t 

219 

C 

220 

vfi-obj  E  i>  tr  ]  . 

vg lor  =  vg f  __  i  o  r  <  <  4  ; 

221 

break; 

222 

) 

223 

case  ISR: 

// 

lute  ns  1  t  y 

scale 

224 

{ 

223 

vgo  b  J  E  p  l  r  1  . 

vg isr  =  (  vg f__lsr<<4) 

1  C  1  ; 

226 

break; 

227 

) 

228 

case  HPH: 

// 

1 ighl  pen 

ha  1  t 

229 

case  HDQ: 

// 

display  b  1  i  11k 

230 

case  HEP: 

// 

enable  light  pen 

23  1 

{ 

232 

1  f ( ae  t 1 on=  = 

SET) 

233 

for  <J= 

1 ; j< ELISTS1Z; j=+  7) 

234 

C 

233 

1 f ( vgobj E  p  t  r 1  . vge 1 e  E  j  J  = 

=0)  break; 

236 

vgobj E ptr 3 . vge lef J+21  = 

1  1<<  i  ; 

237 

) 

238 

1 f ( ae  t i on  = 

=  CLEAR) 

239 

f  or ( J  =  1 

; J<EL1STSIZ; j=+  7) 

240 

C 

24  1 

1 f ( vgob j E  p  t  r ]  . vge le  E  J 1  = 

=0)  break; 

242 

vgo  b  J  T  p  t  r  3  .  vge  leEj-J-2]=& 

~(  (  1<<  1)  10100000) 

243 

244 

break; 

245 

) 

246 

defaul t : 

247 

C 

243 

break; 

249 

) 

250 

) 

25  1 

) 

252 

If  (active)  vgobj 1  is t E obj *3]  =  taddr; 

66 


253  rc  t  ur ii(  0)  ; 

254  3 
235 

256 

257 

258 

259 

260 
26  1 
262 

263 

264 


265 

•266  *  initiate  the  object  buffer  list  and  fill  all  constant 

267  3ft  f  ic  Ids . 

260  * 

269 

270  vgo i n i t ( ) 

271  { 


* 

* 

* 


272 

1  n  t  1  ; 

273 

1  n  t  J  ; 

274 

275 

J  =  i ; 

276 

vgeurobj  =  0; 

277 

vgelcuum  =  0; 

278 

279 

/3ft 

280 

X 

Initialize  the  object  list  buff 

281 

3ft 

282 

283 

vpobj  1  is  t  [  03  =  1; 

284 

vgobj llslC 1 J  =  C30000; 

285 

286 

287 

Initialize  each  object  s  true  tur 

288 

3{t 

289 

290 

f  o  r  (  i  =  0  ;  i<N03J;  i++) 

29  1 

C 

292 

vg'ob  J  C  i  3  .  vg  1  i  or  =  0400  14; 

293 

vgob J L i 3 . vg lesr  =  040023; 

294 

vgo b  J [  i 3  . vge 1 e  L  0 3  =  044016; 

295 

3 

296 

re  turn( vgen  tr 1 ( vgobj list))  ; 

297 

3 

3ft 


*/ 


//  set  first  object  number 
//  ha  1 t 


3ft 

3ft 

3ft/ 


//  load  intensity  offset  r eg 
//  load  coordinate  scale  reg 
//  load  MAR  from  stack 


vgp  lo . c 


1  ^Include  "vg’def.h" 

2 


3 

in  t 

vgc t  r  1  ; 

// 

controller  file  descriptor 

4 

i  n  t 

vgd 1 a  1  s  ; 

// 

dials  file  descriptor 

5 

int 

vgd i s p ; 

// 

display  file  descriptor 

6 

i  n  t 

vgf ns  w; 

// 

function  svritcli  file  descriptor 

7 

lut 

vgcnvt ; 

// 

keyboard  file  desci'iptor 

8 

Q 

int 

vgc  md  ; 

// 

c  o  inina  nd  file  di  scrip  lor 

7 

10 

/3ft 

1 1 

3it 

Co  a  ve  r  t  the  display 

list  address  into  a  user  space  address 

12 

3ft 

13 

14 

vgconvt ( 

a  !>p) 

15 

int 

a  bp ; 

// 

display  list  address  pointer 

16 

C 

17 

int 

bp; 

18 

int 

base  ; 

// 

base  block  number  of  process 

19 

int 

pa^e  ; 

// 

most  s ig  3  bits  of  address 

20 

i  n  t 

virtual; 

// 

user  space  address 

21 


3lt 


67 


22 

/X 

X 

23 

Convert  tho  d iwplay  list  address  Into  a  real  address 

* 

24 

* 

*/ 

25 

26 

page  =  (a bp  8  016)  <<  12; 

27 

abp  =  ( abp>  >  3)  3  017776; 

28 

bp  =  a  bp  1  page  ; 

29 

30 

/* 

if: 

31 

X 

Get  the  base  block  number  of  the  process 

* 

32 

X 

*/ 

33 

34 

v-p io ( Obase , CNVT-READ) ; 

35 

36 

/* 

x 

37 

>* 

Convert  the  block  number  into  an  address  and  convert  the  real 

if: 

38 

x 

address  into  a  user  space  address. 

* 

39 

X 

*/ 

40 

41 

virtual  =  (bp  —  (base<<06))  -  02000; 

42 

ret  ur  n( virt ua 1 )  ; 

43 

) 

44 

45 

46 

47 

48 

49 

/>' 

x 

50 

X 

Convert  the  user  space  address  into  a  real  address  in  MAR. 

if: 

5  1 

X 

formal. 

if: 

52 

X 

if:/ 

53 

54 

vge ntr 1  (  a  d  d  r  ) 

55 

Ini  addr;  //  user  space  address  pointer 

56 

{ 

57 

lilt  £  1  addr;  //  logical  address 

58 

ini  rad dr;  //  real  address 

59 

Int  mar;  //  VG  memory  address  register 

60 

laddr=addr; 

61 

62 

/•f' 

if: 

63 

X 

Get  the  real  address  of  the  user  space  address 

X 

64 

% 

if:/ 

65 

66 

vgpio(  lad  dr  ,CM)_TOITE)  ; 

67 

vCpi°(SraddrfCMD-READ) ; 

68 

69 

/X 

* 

70 

X 

Convert  the  real  address  Into  I1AR  format. 

71 

if: 

X/ 

72 

73 

mar  =  (rad dr)  ) )  12; 

74 

mar  =8  016; 

75 

mar  = 1  (raddr<<3) ; 

76 

re  turn( mar )  ; 

77 

) 

78 

79 

80 

81 

82 

83 

/X 

X 

84 

X 

Open  each  of  the  minor  devices  and  retain  the  file 

X 

85 

X 

descriptors.  The  minor  device  number  and  the  file  descriptor 

X 

86 

if: 

associated  with  it  is  J 

X 

87 

if: 

0  vgcrad  /dev/vg 

X 

80 

if: 

1  vgd  1  s  p  /d  e  v/  vgd  p 

X 

89 

if: 

2  vgcntr 1  /Jev/vgc t 

X 

90 

3  vgfnsv;  /dev/vgfs 

X 

91 

if: 

4  vgdials  /dev/vgd 1 

X 

92 

if: 

5  vgcnvt  /dev/vgkb 

X 

93 

if: 

if:/ 

94 

95 

vgopen( ) 

96 

( 

CO 


97 

90 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 
109 
1  10 
1  1  1 
1  12 
1  13 
1  14 
115 
1  16 
1  17 
1  18 
1  19 
120 
121 
122 

123 

124 

125 

126 

127 

128 


if  (  (  vgcjnJ  -  openC  n/dev/vg"  ,  2)  )  <  0)  //  minor  device  0 

C 

perrorC  "open  vgcmd  error")  ; 
re  t u r n( -7 )  ; 

3 

if  CCvgdlsp  =  open( "/do v/vgdp " , 2) )  <  0)  //  minor  device  1 

t 

perrorC  "open  vgdlsp  error"); 
ret  urn( —2)  ; 

3 

if  (  (vg-ctrl  =  open(  "/uev/v^ct  ",2)  )  <  0)  //  minor  device  2 

C 

perrorC  "open  vgc  tr 1  error"); 
returnC-3) ; 

3 

if  CCvgfnsw  =  openC  "/dev/vgfs ",  0) )  <  0)  //  minor  device  3 

C 

perrorC  "open  vgfnsw  error"); 
ret  urn( -4 )  ; 

3 

if  C  C  vgd i  a  1  s  =  o  pe  n  C  "/d  e  v/ vgd 1" ,0))  <  0)  //  mi  no  r  device  4 

C 

perrorC  "open  vgdials  error"); 
re tnrnC -5) ; 

3 

if  (  (vg-envt  =  openC  "/do  v/vgkb "  ,  0)  )  <  0)  //  minor  device  5 

C 

perrorC "open  vgcnvt  error"); 
re  tnrnC “6)  ; 

3 

re  turnC 0)  ; 

3 


129 

130 

131 

132 

133 
134/* 

135  * 

136  * 

137  * 

138  * 

139  * 

140  * 

141  * 

142  * 

143  * 

144  * 

145  * 

146  * 

147  * 

148  * 

149  * 

150  * 
15  1  * 

152  * 

153 


Vector  General  Read/Vr i te  Routine 

all  coisniun  i  ca  t  1  on  with  the  vector  genera  I  is  handled  via  this 
routine*  The  mode  determines  the  action  to  he  taken. 

The  acceptable  values  for  the  mode  are  * 

1  -  read  using  minor  device  0 

2  —  wr  1  t  e  us  i  ug  m  i  no  r  device  0 

3  -  read  using  minor  device  1 

4  —  write  using*  minor  device  1 

5  —  read  using*  minor  device  2 

6  -  wr  i  t e  us  i  ng*  minor  device  2 

7  —  read  using  minor  device  3 

8  —  vt  i  te  using  minor  device  3 

9  "  read  using  minor  device  4 

1 0  —  wr lie  us ing  minor  device  4 

11  read  using  minor  device  5 

12  -  write  using  minor  device  5 

Return  of  —  1  is  the  result  of  an  address  ing*  error. 


154vgp ioCbp.mode) 

155  int  bp;  //  buffer  address  pointer 

156  int  mode;  //  type  1/0  operation 

157  C 

158  lilt  *abp; 

159 


160/* 

161  *  Check  buffer  address.  Do  not  perform  the  operation  is  the 

162  *  address  is  zero . 

163  * 

164 

165  ifCbp  ==  0)  vgcrashC ) ; 

166 

167  abp  =  bp; 

160  swi tch  ( mode) 

169  C 

170  case  CrfD_KEAD:  //  calc  abs  address 

171  t 


* 

* 

* 


X 


X 

X 

X 

X 

X 

X 

X 

X 


X 

X/ 


* 

X 

X/ 


69 


172 

173 

174 

175 

176 

177 

170 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

19  1 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

2  32 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 


IfCreadC  vgc  md  *  a  b  p  ,  2 )  <  0) 

perrorC  " CMD— READ  error") 


break? 

3 

case  CMD-WRITE: 

r 

//  ge t  »bs  address 

i  f  (  wr  i  t  e  (  vgc  md  ♦  a  b  p  ,  2  )  <  0 ) 

perrorC  "C.PID— WRITE  error")  ; 


b  r  c  a  k ; 

) 

case  DIFV.UEAD: 

C 

//  get  interrupt  registers 

i  f  C  x  n  d  (  vgd  1  sp  ,  a  bp  ,  1  66  )  <  0) 

perrorC  "D ISP-READ  error") 


break; 

) 

case  D ISP- WRITE: 
C 

*  //  sent  display  list 

5 f ( vr i t e< vgd isp , a bp , 1 0)  <  0) 

perror  (  "  D  ISP—WRITE  error") 


break ; 

3 

case  CTRL-READ: 

C 

//  ge t  c ur rent  vg  register  value 

IfCrend  ( vgc t r 1 » abp « 2)  <  0) 

perrorC "CTRL-READ  error") 


break; 

3 

case  CTRL— WRITE: 
C 

//  sent  system  control  words 

i  f  C  wr  1  t e  C  vpc  t  r  l  ,  a  b  p  ,  2  )  <  0) 

pe r ror C  " CTRL— VR 1 IE  e r r or") 


break ; 

} 

case  F NSW— READ : 
t 

//  get  func  switch  value 

IfCrend  ( vgf ns w, abp # 1 66)  <  0) 


perrorC ' 
break; 

3 

1 F  N  S W_ READ  error")  ; 

case  FNSV- WRITE: 
C 

break; 

3 

//  not  used 

case  D I AL— RE AD • 

C 

//  get  dial  positions 

i f ( rend ( vgd i a  Is , abp ,  1 66)  <  0) 

perrorC "DIAL-READ  error") 


break; 

3 

case  DIAL- WRITE: 
C 

break ; 

3 

//  unused 

case  CNVT— READ: 

C 

//  get  base  address 

i f ( read ( vgcn vt , abp , 2)  <  0) 

perrorC "CHVT— READ  error") 


break; 

3 

case  KYBD— WRITE : 
C 

break; 

3 

//  unused 

70 


247  dc  f au 1 t : 

248  C 

249  break; 

250  ) 

25 1  ) 

252  ) 

253 

254 

255 

256 

257 

253/*  * 

259  *  Terminate  vector  general  operations.  Close  nil  minor  devices  * 

260  *  and  make  the  process  non  real-time.  * 

26  1  * 

262 

263vgterm(  ) 

264  C 

265  if(close( vgdisp)  <  0) 

266  perror(  "Close  error"); 

267  } 


vgrd  wr  i  .  c 


1  *  Include  "vgdef.h" 

2  ~  x nc  1  ud e  11  vgr eg.h" 

3  ^include  "vgglob.h" 

4 

5 


6 

* 

7 

* 

Get  the  ten  vector  general  dial 

va lues  . 

* 

8 

* 

*/ 

J 

10 

vgd ial(ahp) 

1 1 

lut  a  b  p ; 

//  ten  word  buffer  pointer 

12 

C 

13 

hit  *bp; 

14 

int  i  ; 

15 

if(abp==0)  return(-6); 

16 

bp  -  abp; 

17 

vgp i o ( 8vg_ f  s  ,  D 1 AL—READ )  ; 

//  get  dial  values  from  VG 

18 

for(  i  =  0;  i<  10;  i++)  *(bp++)  =  vg^dialt  il>>4; 

19 

) 

20 

21 

22 

23 

24 

25 

* 

26 

get  function  switch  values 

* 

27 

* 

the  t h 1 r  t y— t wo  va lues  of  J  he  VG 

function  switches 

* 

28 

are  returned  to  l  lie  user  via  tixe 

t  wo  wo r  d  buffer. 

* 

29 

* 

A  bit  that  is  set  corresponds  to 

a  VG  function  switch 

* 

30 

* 

that  has  been  depressed. 

* 

31 

* 

*/ 

32 

33 

vgge  t  f  s  w(  a  b  p  ) 

34 

int  abp ; 

//  2  word  buffer 

35 

C 

36 

int  *bp; 

37 

if(nbp=  =  0)  return(~6)  ; 

38 

bp  =  abp; 

39 

vgp  i  o  (  f  s  ,  F NS  V_RE  AI) )  ; 

//  get  function  switch  values 

40  *(bp++)  =  vg_fs; 

4  1  *bp  =  vg_fs2; 

42  ) 

43 

44 

45 


71 


46 

47 

48 

/* 

X 

49 

X 

Calculate  the  refresh  rate  and  sent 

the  value  to  the 

ve  c  t  o  r 

X 

50 

general.  The  value  .sent  must  be  an 

integer  between 

0  a  ud  9 

X 

51 

* 

X/ 

52 

53 

vge 

lock(rate) 

54 

i  n  t  rate; 

//  refresh  rale 

1  n  he  r.  1 7. 

55 

C 

56 

rate  =  120/rate; 

57 

vgp i o(  3ra  te , CTRL— VRITE)  ; 

58 

) 

vgusr . e 


1  -^include  "vgdef.li" 

2  ^include  "vgglob.h" 

3  ^include  "vgrey.h" 

4 

5  /X  x 

6  X  character  read  routine  x 

7  #  Returns  the  oldest  keyboard  character  in  the  character  queue.  X 

8  *  If  no  character  has  been  input  return  -1.  $ 

9  *  * 

10  sR  NOTE:  The  character  is  filled  by  a  keyboard  X 

11  X  character  interrupt  causing  vgkpivO  to  l)e  called,  X 

1 2  SR  */ 


13 

1 4  vgge  t  c  a  r ( ) 

15  C 

16  ifCvgkflagr  ==  0)  return(-l); 

17  vgkflag — ;  //  removed  one  character 

18  i f ( vgkque f 1  ==  KKOUE)  vgkquefl  =  0; 

19  r e t nr n( vgkque f vgkque f 1++ ] > > 8) ; 

20  ) 

21 

22 


23 

24 

25 

26  /* 

27  x 

28  sR 


Set /cl  ear  the  blink  mode  on  the  picture,  object,  or  element. 


29 

30  vgb  1  ink(  type  ,  nurn,  ac  t  1  on) 


31 

char  type ; 

// 

0  —  p  ie  t  lire 

32 

// 

1  -  object 

33 

// 

2  ~  e  1  e  me  n  t 

34 

35 

int  n  urn; 

// 

0  -  pie  ture 

36 

// 

object  or  ele  me  n  t 

nura 

37 

38 

char  action; 

// 

0  -  clear 

39 

// 

1  -  set 

40 

f 

41 

42 

swi  teli(  type  ) 

43 

C 

44 

ease  P  I C  •* 

// 

SET/CLEAH  blink 

p i c  t  ure 

45 

C 

46 

re  t nrn( 

vgp  iemod  (  0  1000  ,  ac  t  ion)  )  ; 

47 

) 

48 

case  OBJ** 

// 

SET/CLEAR  blink 

on 

o  b  J  e  c  t 

49 

C 

50 

re  t urn( vgob J mod ( nura , 

, 0 1 COO , ac  t ion) )  ; 

51 

3 

52 

case  ELE ' 

// 

SET/CLEAR  blink 

on 

e  lemen  t 

53 

C 

n  urn 1 


*  mini1 


72 


54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


re  t  ur  n(  vge  le mod (  mini ,  0  1 000  ,acl  ion)) 


* 

* 

* 


Modify  the  rotation  matrix  of  the  object.  The  return  values 
ore  t  ho  s  e  of  t  he  objec  t  mo  dification  rout  i  lie  . 


* 

* 

* 

*/ 


vgro  t  a  t  e  (  limn,  x  ,  y ,  z ) 


69 

Int  nmn; 

// 

object 

number 

70 

do  nb  1  e  x ; 

// 

rad  1  a n 

rotation 

a  bo  u  t 

X—  axis 

71 

double  y; 

// 

radian 

rotation 

abou  t 

Y-axis 

72 

double  z; 

// 

rad  i an 

rotat  ion 

about 

Z-ax  is 

73 

74 

75 

76 

77 

78 

79 

80 
81 
02 
83 
04 

85 

86 
07 
88 
09 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 


mz,cosx,  cosy,  cos z  ; 


t 

double  sia() ; 
do  lib  1  e  cost); 
double  s inx.siny,! 
s  inx  =  sin(x)  ; 
s  Iny  =  sin(y)  ; 
sinz  =  sin(z); 
cosx  -  cos ( x) ; 
cosy  =  cos(y); 
cosz  =  cos ( z ) ; 
vg-f_.ro  tT  01  ~  (cosz^cosy 

vg f _r  oil  1]  =  (cos  y#s iuz 

vgf„rotf2]  =  — s i ny*cosx#2047 ; 
vgf_.ro  tt  3]  =  -s  i  nz-'T'C osr#2G47  ; 
vgf^ro  t [ 4]  =  cosx^cosz^204V ; 

vgf_.ro  t[  5]  r  siux*2047; 

vgf_.ro  t[  63  =  (slny^cosz  +  s  i nx^-c o s y^s  i nz )  ^204?  ; 

vg-f_rot[7]  =  (si n\r^s  iirz  -  s  inx^cosy^cosz)  #2047 ; 
vgf_rot[ 8]  =  cocx^cosy^2047; 
re  t  ur  n(  vg-ob  J  mod  (  num,  01)); 

) 


s  i  nx*s  i  ny*s  1  nz  )  #2047  ; 
s  inx^'s  iny^cosz)  #2047  ; 


/* 


* 

#  Modify  the  X,  Y,  and  Z  coordinates  of  the  object.  The  range  * 

#  of  values  are  from  —2043  (0  177777)  through  2047'  (07777)  .  # 

#  The  return  codes  are  those  of  the  object  mod i f ica t ion  routine.  * 

#  %/ 


vgcoord ( num, x , y , z) 


106 

int  num; 

// 

object  number 

107 

int  x ; 

// 

X  coord i na  t  e 

108 

int  y; 

// 

Y  coord i na l e 

109 

int  z  ; 

// 

Z  coord i na  te 

1  10 

C 

1  1  1 

vg f  __dxr  “  x; 

1  12 

vgf _dyr  =  y; 

1  13 

vgf-dzr  =  z; 

1  14 

re t  ur n( vgob J mod  (  num. 

04)  )  ; 

1  15 

) 

1  16 
1  17 
1  18 

1 19 

120 
121 
1 22 

123 

124 

125 

126 

127 

128 


/* 

* 

* 

* 

* 


Modify  the  intensity  offset  of  the  object.  The  range  of  values  * 
is  from  0  to  1.  The  return  codes  are  those  of  the  object  * 
mo  dification  routine.  # 

*/ 


vg  1  o  f  s  e  t  (  num ,  va  1 ) 
i li  t  num; 


//  object  number 


73 


129 

130 

131 

132 

133 

134 

135 

136 

137 

130 

139 

140  * 

141  * 

142  * 

143  * 

144 

145  vg i sea  1 ( num, va 1 ) 


146 

int  num; 

//  object  number 

147 

do  ub  1  e  va  1  ; 

//  i n t e ns ity  scale 

148 

t 

149 

vgrf—isr  =  va  1*2047; 

150 

re  turn(  vgobjrnod(  uurn,  020)  ) 

; 

151 

3 

152 

153 

154 

155 

156 

157 

/* 

158 

* 

Mo d i f  y  t  he  coord i na t  e  sea 

1  e  of  the 

object.  The  range  of  values 

159 

* 

are  0  to  1.  33ie  return  codes  are 

t  ho  se  of  the  object 

160 

* 

modification  routine. 

161 

162 

163 

vgc sr(  nuin  ,  va  1 ) 

164 

int  num; 

• 

//  object  number 

165 

do  ub  le  va  1  ; 

//  coord  in ale  scale  value 

166 

C 

167 

vgf.csr  =  va 1*2047; 

168 

re  t  urn(  vgo  i>J  mod  (  num,  02)  )  ; 

169 

3 

170 

171 

172 

173 

174 

•  • 

175 

176 

* 

Set /c  tear  t  he  1  i gh  t  pe  n  ho  o  ka b 1 1 i t  y  of  the  object  or  e 1 e  me  n  t 

177 

X 

The  light  pen  halt,  light 

pen  interrupt,  and  light  pen  sense 

178 

% 

switch  are  all  treated  ns 

a  £?  i  ng  I  e 

unit  to  be  set /cleared. 

179 

X 

Return  codes  are  those  of 

the  modification  roil  tine  concerned. 

180 

* 

181 

182 

vg 1 pen(  t ype , num, ac  t ion) 

183 

c liar  t  ype  » 

//  1  * 

-object 

184 

//  2 

-  e ie  men t 

185 

186 

int  num; 

//  object  or  element  number 

187 

188 

char  ac  t  ion; 

//  0  • 

-  clear 

189 

//  1  * 

-set 

190 

( 

191 

swi  t  ch(  t  ype  ) 

192 

C 

193 

case  OBJ • 

//  set/clear  object 

194 

C 

195 

re  turn ( vgobj mod (  num, 020400 

, ac  t  Ion) )  ; 

196 

3 

197 

case  ELEt 

//  set/c lear  element 

198 

C 

199 

ret  urn( vge 1 e mo d ( num, 020400  , 

, act  ion))  ; 

200 

3 

201 

) 

202 

re  turn( 0 )  ; 

203 

3 

double  va 1 ;  //  intensity  offset  value 

C 

vgf.lor  =  va 1*2047; 

re  t  urn(  vgobj  mod  (  mini,  010)  )  ; 

3 


Modify  the  Intensity  scale  of  the  object.  The  ranpe  of  values 
is  from  0  to  1.  The  return  codes  are  those  of  the  object 
modification  routine. 


* 

* 

* 

*/ 


* 

X/ 


% 


*/ 


74 


x-  -x 


204 

205 

206 

207 

208 

209  /* 

210  #  Get  the  light  pen  Interrupt  registers,  llie  light  pen 

211  *  interrupt  flag  is  cleared  so  another  light  pen  interrupt  may  * 

212  *  be  accepted  by  the  light  pen  Interrupt  handler*  * 

213#  */ 

214 

215  vgge t lpn( abp) 

216  Int  a l>p;  //  8  word  buffer  pointer 

217  ( 

218  int  *  b  p ; 

219  int  i; 

220  bp  -  abp; 

221  f  or (  i =  0 ;  1<7;  i+  +  ) 

222  3C(bp++)  =  vglpbuftl]; 

223  vglpflag?  =  0; 

224  ) 
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